REAL-TIME  APPLICATIONS  IN  MULTIPROCESSOR  SVSTEMS(U) 
NAVAL  POSTGRADUATE  SCHOOL  MONTEREV  CD  HK  OZVURT 
DEC  82 


UNCLASSIFIED 


F/G  9/2 


NL 


_ UNCLASSIFIED 


SECURITY  CLASSIFICATION  O F  THIS 


;  flkw  Data  ialanO 


REPORT  DOCUMENTATION  PAGE 


4.  TITLE  (m*  SuAMMwj 

Real-Time  Applications  in  Multiprocessor  Systems 


READ  INSTRUCTIONS 
BEFORE  COMPLETING  FORM 


1.  RECIPIENT'S  CATALOG  NUMBER 


s.  Type  or  report  a  period  covered 
Master’s  Thesis 
December,  1983 


•-  performing  org.  report  number 


.  autmohw 

M.  Kadri  Ozyurt 


4.  CONTRACT  OR  GRANT  NUMBERr*J 


PERFORMING  ORGANIZATION  NAME  ANO  AOORESS 

Naval  Postgraduate  School 
Monterey,  California  93943 


PROGRAM  ELEMENT.  PROJECT.  TASK 
AREA  A  WORK  UNIT  NUMBERS 


It.  CONTROLLING  OFFICE  NAME  ANO  AOOREU 

Naval  Postgraduate  School 
Monterey,  California  93943 


NAME  A  AOORESSfff  dfffmnl  I 


12.  REPORT  DATE 

December,  1983 


IS.  NUMBER  OF  PAGFS 

120 


I  Controlling  Olllco)  IS.  SECURITY  CLASS,  (o I  thlo  roport) 

UNCLASSIFIED 


RIOUTION  STATEMENT  (ol  Ma  MapartJ 

Approved  for  public  release;  distribution  unlimited 


•7.  DISTRIBUTION  STATEMENT  (ol  Ma  aAaMaaf  aalaraK  In  Slaafe  20.  If  milnrmt  from  Rapart) 


KEY  WORDS  fCanUawa  aw  raawraa  alWa  II  aaaaaaary  aM  IWanlffy  *r  MaeA  numbmr) 


Simulation 

Real-time 

Microprocessor 

Interrupt 


PL/I 

RASM-86 

MDS 

Linked-list 


Computer  graphics 


<0.  AMTR ACT  (Cmthmw  m  «IM>  I#  antf  Jtfwtfify  My  Ww*  numb*) 

>This  thesis  builds  a  simulation  model  of  a  tactical  fire  control  system  in  a 
real  time  environment,  using  a  tightly  connected  multi-processing  system 
consisting  of  two  single  board  computers.  The  additional  hardware  used  in 
this  project  consists  of  an  AEM-3A  video  terminal  with  a  built-in  retrographics 
feature,  an  MDS  microprocessor  development  system,  an  analog-to-digital 
converter,  and  two  sets  of  triplet  potentiometers.  The  potentiometers  are 
used  to  feed  analog  information  about  ownship,  target ship,  and  gun  position 


I  JAN  71 


EDITION  OF  1  NOV  SI  IS  OMOLETE 
S/N  0102-1*014-6401 


_ UNCLASSIFIED _ 

SECURITY  CLASSIFICATION  OF  THIS  PAGE  (*hon  Data  Bntoroa' 


UNCLASSIFIED _ 

IKCUWTV  OjMlWCATIOM  OF  TWI»  FAOK  (Ww«  Pata  Kmtm*0 

->to  the  simulation  model,  which  then  evaluates  and  computes  projected 
target  positions  and  gun  control  parameters,  and  displays  the  results. 


S'N  0102*  LF-  014*  6601 


V.  T 


_ UNCLASSIFIED 

MCUMTV  CLASSIFICATION  OF  THIS  FAOtfWMn  Data  SniaraO 


Approved  for  public  release?  distribution  unlimited 


Real-Time  Applications  in  Multiprocessor  Systems 

by 

M.  Kadri'Ozyurt 
Lieutenant  J.G.,  Turkish  Navy 

Submitted  in  partial  fulfillment  of  the  requirements 
for  the  degree  of 

MASTER  OE  SCIENCE  IN  ENGINEERING  SCIENCE 
from  the 


Author: 


Approved  by: 


NATAL  POSTGRADUATE  SCHOOL 
December,  1983 


Thesis  Advisor 


econd  Reader 


rLt.^6^6.. 


Chairman,  Department  of  Computer  Science 


Science" and" ingl nee ring 


ABSTRACT 


This  thesis  builds  a  simulation  model  of  a  tactical 
fire  control  system  in  a  real  time  environment,  using  a 
tightly  connected  multi-processing  system  consisting  of  two 
single  board  computers.  The  additional  hardware  used  in 
this  project  consists  of  an  ADM-3A  video  terminal  with  a 
built-in  retrographics  feature,  an  MDS  microprocessor 
development  system,  an  analog-to-aigi tal  conver¬ 
ter,  and  two  sets  of  triplet  potentiometers.  The  poten¬ 
tiometers  are  used  to  feed  analog  information  about  own- 
ship,  targetship,  and  gun  position  to  the  simulation  model, 
which  then  evaluates  and  computes  projected  target 
positions  and  gun  control  parameters,  and  displays  the 
results. 
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I.  INTRODUCTION 


A.  BACKGROUND 

To  this  date,  many  tactical  control  and  decision 
systems  have  been  designed  and  implemented  in  various 
places,  where  the  nature  of  the  job  required  fast  response 
and  decision  making.  The  NTDS  (Navy  Tactical  Decision 
System),  for  instance,  is  one  such  system  implemented  for 
U.S.  Navy  ships  in  1962,  and  is  still  in  use  today,  with 
recent  hardware  modifications. 

The  revolutionary  developments  in  the  LSI  (Large  Scale 
Integration)  and  VLSI  (Very  Large  Scale  Integration) 
industries  during  the  period  from  1972  to  1983  have  made 
the  costs  of  computing  much  less  expensive  than  the  costs 
of  yesterday's  systems.  Today's  products,  which  are  based 
on  these  innovations  in  large  scale  integration,  have 
proved  to  be  more  reliable  and  more  versatile  than  the  old 
systems,  and  they  can  also  be  tailored  to  the  needs  of 
whatever  the  nature  of  the  requirements  may  be.  The 
serviceability,  availability  and  Inexpensiveness  of  these 
products,  in  addition  to  the  above-mentioned  features, 
offer  both  the  designers  and  the  implementers  an 
opportunity  to  take  advantage  of  this  technology. 


B.  DISCLAIMER 

Many  terms  used  in  this  thesis  are  registered  trade¬ 
marks  of  commercial  products.  Rather  than  citing  each 
individual  occurance  of  a  trademark  throughout  this  thesis, 
all  registered  trademarks  referred  to  in  this  thesis  will 
Be  listed  Below,  following  the  name  of  the  firm  holding  the 
trademark. 

Intel  corporation,  Santa  Clara,  California: 

Intel,  Intel  8086,  iSBC  86/12A,  MULTIBUS,  MDS 

Digital  Research  Corporation,  Pacific  Grove, 

California: 

CP/M,  CP/M-86,  PL/I-80,  PL/I-86,  TED,  8ASM-86, 

LINK-86,  DDT-86 

EX-CELL-0  Corporation,  Irvine,  California: 

REMEX  Data  Warehouse 

MicroPro  International,  San  Rafael,  California: 

Wordstar 

Micropolls  Corporation,  Chatsworth,  California: 

Micropolls 

Lear  Slegler,  Inc.,  Anaheim,  California: 

ADM-3A 

C.  PURPOSE  OF  THIS  THESIS 

The  purpose  of  this  thesis  is  to  create  a  simulation 
model  for  real  time  tactical  systems  which  can  Be  used  to 
study  the  following  features: 

1.  Multiprocessor  system  real  time  performance; 

2.  System  reliahilityi 

3.  Graphics  Display* 

4.  Software  Engineering. 


In  order  to  carry  out  these  objectives,  certain 
hardware  changes  had  to  be  made.  The  real  time 
applications  necessitate  the  existence  of  an  interrupt- 
driven  configuration  originating  from  an  accurate  timer. 
The  interconnections  and  the  appropriate  initializations, 
both  in  the  timing  (PIT)  and  the  interrupt  (PIC)  circuits, 
were  made  on  the  iSBC  86/12A  board,  to  give  the  required 
real  time  clock.  After  achieving  the  desired  form  cf 
operation,  the  real  time  executive  module  (which 
synchronizes  the  operation  of  the  simulation  system 
programs)  was  tested  in  an  interrupt-driven  environment. 
After  testing  out  both  the  real  time  executive  and  most  of 
the  simulation  system  programs,  the  individual  execution 
times  of  the  simulation  system  programs  were  measured  with 
the  aid  of  TIMES. AID,  an  ^INCLUDE  file  (see  Apppendix  T) . 

It  was  intended  to  utilize  two  iSBC  86/12A  single  board 
computers  in  order  to  study  the  real  time  performance  of  a 
tightly  connected  multiprocessing  scheme.  The  Intel  MDS 
(Microprocessor  Development  System)  allows  the  configura¬ 
tion  of  such  an  expansion,  through  its  20  bit  MULTIBUS 
backplane.  It  was  also  planned  to  write  the  required 
software  to  prevent  a  single  point  failure  and  to  gain  a 
"graceful  degradation"  in  the  case  of  a  malfunction  in  any 
of  the  single  board  computers. 


The  ADM-3A  video  terminal,  with  its  built-in  Retro- 
graphics  unit,  was  utilized  for  graphics  display  purposes. 
The  Retrographics  card  contains  a  Z-80A  eight  bit 
microprocessor.  This  allows  the  computations  for  high 
precision  graphics  to  be  done  by  the  video  terminal.  That 
improves  the  efficiency  by  removing  much  of  the  overhead 
from  the  iSBC  86/12A  single  board  computers.  The 
Retrographics  unit  can  also  make  drawings  and  erasures 
selectively.  This  improves  the  display  time,  which  might 
be  lost  due  to  total  erasures  and  redrawings.  In  other 
words,  the  selective  erasing  capability  decreases  the 
display  time,  such  that  the  program  may  make  partial 
erasures,  erasures  cf  single  objects. 

The  programs  written  for  the  simulation  model  were  made 
as  modular  as  much  as  possible,  to  facilitate  testing  and 
maintenance,  and  to  make  room  for  future  alterations.  A 
procedure  call  was  placed  wherever  a  critical  design 
decision  was  to  be  made.  This  procedure  call  gives  the 
option  of  changing  a  critical  design  decision  if  one  that 
is  more  efficient  is  designed.  Structured  programming  and 
efficient  data  structures  were  meant  to  be  utilized. 
Circular  linked-lists  are  examples  of  such  a  programming 
technique. 


D.  THESIS  ORGANIZATION 

The  thesis  Is  organized  into  four  chapters.  The  prog¬ 
ram  listings  developed  to  implement  the  simulation  system 
are  appended  at  the  end  of  the  text.  The  first  chapter 
covers  the  background,  the  disclaimer  for  the  trademarks 
used  in  this  thesis,  the  intended  purpose  of  the  project 
and  thesis  organization.  The  second  chapter  covers  the 
system  configuration  and  the  hardware  components.  The 
third  chapter  deals  with  software  modules  written  in  both 
PL/ I -86  and  RASM-86  assemtly  languages.  The  program  seg¬ 
ments  are  discussed  in  detail  in  this  chapter.  Some  infor¬ 
mation  about  the  data  structures  used  in  the  developement 
of  the  software  are  brought  up,  as  well  as  the  initializa¬ 
tion  of  the  programmable  hardware  components.  In  the  final 
chapter,  some  conclusions  are  presented  on  the  work 
involved  in  the  implementation  of  the  simulation  system. 


II.  SYSTEM  HARDWARE 


A.  SYSTEM  CONFIGURATION 

The  existing  system  hardware  (see  Figure  2.1)  uses  the 
Intellec  microcomputer  development  system  (MDS),  which 
allows  the  expandability  required  to  set  up  a  multi-proces¬ 
sor  system.  Within  the  MDS,  the  boards  required  for  the 
operation  of  the  system  are  interconnected  through  the 
MULTIBUS  backplane.  These  boards  are  the  following:  two 
iSEC  86/12A  boards,  the  front  panel  control  board,  an  A  to 
D  converter  board,  and  two  interface  boards  for  disk 
drives.  The  MDS  utili2es  an  Intel  disk  drive  unit  which 
has  two  disk  drives.  Standard  8-inch  IBM  floppy  disks  are 
used  as  the  removable  storage  media. 

Each  iSBC  86/12A  board  had  a  RAM  capacity  of  up  to 
OFFFF  hexadecimal  (65535  decimal)  eight  bit  bytes.  Since 
the  MULTIBUS  is  a  20-bit  address  bus,  the  address  space  of 
the  whole  system  can  be  expanded  up  to  1  megabyte.  The 
single  board  computers  can  address  this  memory  space  by 
their  20-bit  address  bus.  Each  board  is  so  wired  that 
the  first  64  Kbyte  RAM  segment  resides  on  its  board  (0000 
through  FFFFH).  The  64K  RAM  segments  on  each  board  can  be 
wired  to  be  accessible  from  the  MULTIBUS  as  dual  ported 
memories  in  the  1-megabyte  address  space.  One  of  the  iSBC 
86/12A  boards  is  the  master  of  the  master-slave 
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Figure  2.1  -  System  Interconnection 
multiprocessor  scheme.  The  master  hoard  is  assigned  the 
first  54Ksegment  (00000h  -  0FFFFh)  where  the  slave  hoard  Ls 
assigned  the  second  64K  segment  (10000h-lFFFFb) .  In  this 
configuration  the  A-to-D  hoard  occupies  the  segment  with 
the  addresses  (D0000h-DFFFFh) .  The  outputs  of  the  A-tc-D 
converter  are  memory-mapped  as  eight  tit  tytes  and  occupy 
the  locations  DF700H  through  EF70FH.  That  is  to  say  that 
they  are  viewed  ty  the  CPU's  in  the  system  as  being 


ordinary  memory  locations.  An  analogy  to  that  is  that  they 
resemble  read  only  memory  that  can  only  he  read  hut  not 
written  in  to. 

The  master  iSBC  86/12A  is  connected  to  the  ADM-3A  video 
terminal  through  it's  serial  I/O  connector.  This  is  the 
only  means  of  communication  of  the  system  to  the  outside 
world.  The  results  of  the  simulation  are  fed  to  the  video 
display  through  this  interconnection.  The  ADM-3A  video 
terminal  has  a  built-in  retrographics  feature.  The 
consequence  of  this  is  that  the  ADM-3A  works  not  only  as  an 
alphabetic  terminal  but  also  may  act  as  a  graphics  device 
due  to  the  fact  that  the  retrographics  card  Itself  has  a  Z- 
80A  microprocessor  built  in.  This  microprocessor  allows 
the  high  precision  graphics  computations  to  be  done  without 
the  need  of  any  other  external  processors.  In  this  case, 
ADM-3A  has  four  operational  modes,  each  one  of  which  has 
an  Impact  on  the  simulation  graphics  and  will  be  discussed 
later  in  this  chapter. 

B .  HARDWARE 

In  the  following  subsections  the  Individual  components 
that  comprise  the  system  hardware  are  presented. 

1.  MDS 

The  Intellec  Microcomputer  Development  System  (MDS) 
is  a  complete  development  tool  which  allows  the 
integration  of  both  microcomputer  hardware  and  software 


development.  The  system  operates  under  the  control  cf  an 
8086  microprocessor  which  supervises  all  system  resources 
such  as  the  main  memory,  I/O  peripheral  devices,  and 
optional  system  facilities,  such  as  A-to-D  converters. 
It  can  support  up  to  7  iSBC  86/12A  hoards  in  this 
configuration.  Some  of  the  important  hoards  are  presented 
hel ow . 

a.  Front  Panel  Control  Board 

The  Front  Panel  Control  Beard  contains  circuits 
for  controlling  the  front  panel  options.  It  also  provides 
some  signals  for  bus  control,  clock  generation,  and  the 
bootstrap  program.  A  bus  time-out  system  is  included  to 
prevent  the  CPU  from  halting  operation  if  a  nonexistent 
memory  location  or  an  incorrect  I/O  port  is  addressed. 

This  board  produces  two  types  of  clock  pulses: 

(1)  Bus  Clock  (10  MHz),  used  in  Bus 
transactions ; 

(2)  Common  Clock  (10  MHz),  used  by  system 

devices? 

b.  Disk  Interface  Boards 

These  two  cards  contain  the  disk  controller 
Interface  for  each  drive  in  the  Disk  Storage  Unit. 

2.  Single  Board  Computer 

Intel's  Single  Board  Computer  iSBC  86/12A  is  used 
in  the  system.  It  is  a  member  of  Intel's  complete  line  of 
8-  and  16-bit  single  board  computer  products  and  is  a 


complete  computer  system  on  a  single  printed-circuit  assem¬ 
bly.  The  iSBC  86/12A  board  includes  a  16-bit  central 
processing  unit  (CPU),  32K  bytes  (32,768  bytes)  of  dynamic 
RAM,  a  serial  communications  interface  (USART),  three  pro¬ 
grammable  parallel  I/O  ports,  programmable  timers  (PIT), 
priority  interrupt  control  (PIC),  Multibus  interface  con¬ 
trol  logic,  and  bus  expansion  drivers  for  interfacing  with 
other  Multibus  interface-compatible  expansion  boards.  Also 
included  is  a  dual  port  control  logic  to  allow  the  iSBC 
86/12A  board  to  act  as  a  slave  RAM  device  to  other  Multibus 
interface  masters  in  the  system,  as  is  the  case  in  this 
project.  In  the  current  state  of  the  hardware,  the  RAM 
capacity  of  both  iSBC  86/12A  boards  is  expanded  up  to  64K 
bytes  by  installing  an  ISBC  300  Multimodule  RAM  option.  A 
read  only  memory  of  16K  bytes  is  also  added  to  both  iSBC 
86/12A  boards.  The  important  components  that  make  up  the 
iSBC  86/12A  board  are  discussed  in  the  following 
subsections . 

a.  CPU 

The  iSBC  86/12A  Single  Board  Computer  is 
controlled  by  an  Intel  8086  16-bit  Microprocessor  (CPU). 
The  8086  CPU  includes  four  16-bit  general  purpose  registers 
that  may  also  be  addressed  as  eight  8-bit  registers.  In 
addition,  the  CPU  contains  two  16-bit  pointer  registers  and 
two  16-blt  index  registers.  Pour  16-bit  segment  registers. 


specifically:  code,  data,  extra,  and  stack  segment 

registers;  allow  extended  addressing  to  a  full  megabyte  of 
memory.  The  CPU  instruction  set  supports  many  variations 
of  addressing  modes  and  data  transfer  operations,  signed 
and  unsigned  8-hit  and  16-hit  arithmetic  including  hardware 
multiply  and  divide,  and  logical  and  string  operations. 
The  CPU  architecture  permits  dynamic  code  relocation, 
reentrant  code,  and  instruction  lookahead, 
b .  Serial  I/O 

The  serial  I/O  port  is  controlled  and 

interfaced  hy  an  Intel  8251A  USART  (Universal 
Synchronous/Asynchronous  Receiver/Transmitter)  chip.  The 
USART  is  individually  programmable  for  operation  in  most 
synchronous  serial  data  transmission  formats. 

In  the  synchronous  mode,  the  following  are 
programmable : 

(1)  Character  length 

(2)  Sync  character  (or  characters) 

(3)  Parity 

In  the  asynchronous  mode  the  following  are 

programmable : 

(1)  Character  length 

(2)  Baud  rate  factor 

(3)  Stop  hits 

(4)  Parity 
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In  both  the  synchronous  and  asynchronous  modes,  the 
serial  I/O  port  features  half-  or  full-duplex,  double 
buffered  transmit  and  receive  capability.  The  USART 
transmit  and  receive  clock  rates  are  supplied  by  a 
programmable  baud  rate/time  generator. 

c.  Programmable  Interval  Timer 

Three  independent,  fully  programmable  16-bit 
interval  timer/event  counters  are  provided  by  in  Intel  8253 
Programmable  Interval  Timer  (PIT).  Each  counter  is  capable 
of  operating  in  either  BCD  (binary  coded  decimal)  or  binary 
modes>  two  of  these  counters  are  available  to  the  system's 
programmer  to  generate  time  intervals  under  software  con¬ 
trol.  In  this  thesis  project  the  counterl  is  used  to 
generate  timing  pulses  required  for  the  real  time  clock 
operation  to  the  system  software.  These  pulses  are  sent  to 
the  PIC  via  the  interrupt  matrix  as  being  an  IR1  input 
request. 

d.  Priority  Interrupt  Control 

The  priority  interrupt  control  (PIC)  which  can 
be  programmed  to  respond  to  edge-sensitive  or  level-sensi¬ 
tive  inputs,  treats  each  true  input  signal  condition  as  an 
interrupt  request.  After  resolving  the  interrupt  priority, 
the  PIC  Issues  a  single  interrupt  request  to  the  CPU. 
Interrupt  priorities  are  independently  programmable  under 


under  software  control.  The  programmable  interrupt 
priority  modes  are: 

(1)  Nested  Priority.  Each  interrupt  request 


has  a 

fixed  priority: 

input  0  is  highest. 

input  7 

is 

lowest. 

This  mode  of 

operation  is  chosen 

in  this 

thesis 

project; 

(2)  fully 

Nested  Priority. 

This 

is 

essentially  the  same  as  item  (1)  above,  with  the  exception 
that  the  requesting  input  is  not  locked  out  and  pending 

requests  are  still  accepted? 

(2)  Auto-Rotating  Priority.  Priorities  are 
equal.  The  last  received  input  becomes  the  lowest  priority 
input? 

(4)  Specific  Priority.  Software  assigns  the 

priorities? 

(5)  Special  Mask.  Interrupt  requests  that  are 
being  serviced  are  masked  out? 

(6)  Poll.  The  CPU's  Internal  interrupt  enable 
is  disabled.  Interrupt  service  is  achieved  by  a 
programmer-initiated  Poll  command. 

The  iSBC  86/12A  board  provides  two  sorts  of 
interrupts  which  are  bus  vectored  (BV)  and  non-bus  vectored 
(NBV).  The  former  deals  with  the  interrupt  requests 
from  off-board  sources  where  the  latter  deals  with  various 
on-board  sources.  The  interrupt  requests  are  fed  to  the 


under  software  control.  The  programmable  interrupt 

priority  modes  are: 

(1)  Nested  Priority.  Each  interrupt  request 

has  a  fixed  priority:  input  0  is  highest,  input  7  is 

lowest.  This  mode  of  operation  is  chosen  in  this 
thesis  project; 

(2)  Pully  Nested  Priority.  This  is 

essentially  the  same  as  item  (1)  above,  with  the  exception 
that  the  requesting  input  is  not  locked  out  and  pending 
requests  are  still  accepted; 

(3)  Auto-Rotating  Priority.  Priorities  are 
equal.  The  last  received  input  becomes  the  lowest  priority 
input; 

(4)  Specific  Priority.  Software  assigns  the 

priorities; 

(5)  Special  Mask.  Interrupt  requests  that  are 
being  serviced  are  masked  out; 

(6)  Poll.  The  CPU's  internal  interrupt  enable 
is  disabled.  Interrupt  service  is  achieved  by  a 
programmer-initiated  Poll  command. 

The  iSBC  86/12A  board  provides  two  sorts  of 
interrupts  which  are  bus  vectored  (BY)  and  non-bus  vectored 
(NBY).  The  former  deals  with  the  interrupt  requests 
from  off-board  sources  where  the  latter  deals  with  various 
on-board  sources.  The  interrupt  requests  are  fed  to  the 
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PIC  through  the  jumpers  of  the  interrupt  matrix,  which  will 
he  discussed  in  the  next  subsection. 

e.  Interrupt  Matrix 

Interrupt  requests  may  originate  from  eighteen 
sources  without  the  necessity  of  external  hardware.  The 
interrupt  matrix  connects  the  selected  source  lines  to  a 
maximum  of  eight  selected  inputs  of  the  PIC.  It  is  an 
array  of  pins  which  can  he  connected  to  each  other  via 
Jumper  wires.  There  are  two  types  of  pins.  The  eighteen 
source  lines  constitute  the  input  pins,  where  the  pins  that 
lead  to  the  IRO  through  the  IR7  inputs  of  the  PIC 
constitute  the  output  pins.  (See  Figure  2-2  for  the 
interconnection  scheme  of  this  thesis  project.) 

f.  Dual  Port  RAM 

The  1SBC  86/12A  hoard  has  an  internal  hus  for 
all  on-hoard  memory  and  I/O  operations.  Hence,  local  (on- 
hoard)  operations  do  not  involve  the  MULTIBUS  interface, 
making  it  available  for  other  iSBC  86/12A  boards  for  a 
multi-processor  scheme.  Dual  port  control  logic  is 
included  to  interface  so  that  the  iSBC  86/12A  hoard  can 
function  as  a  slave  RAM  device  (or  common  memory)  when  not 
in  control  of  the  Multibus  interface.  The  CPU  has  priority 
when  accessing  on-board  RAM.  After  the  CPU  completes  its 
read  or  write  operation,  the  controlling  hus  master  is 
is  allowed  to  access  RAM  and  complete  its  operation.  Where 
both  the  CPU  and  the  controlling  bus  master  have  the  need 


to  write  or  read  several  bytes  or  words  to  or  from  the  on¬ 
board  RAM,  their  operations  are  interleaved.  For  CFU 
access,  the  on-board  RAM  addresses  are  assigned  from  the 
bottom  up  of  the  1-megabyte  address  space;  i.e.,  00000- 
0EFFFh.  The  slave  RAM  address  decoding  logic  includes 
jumpers  and  switches  to  allow  positioning  the  on-board  RAM 
into  any  64-K  segment  of  the  1-megabyte  system  address 
space.  The  slave  RAM  can  be  configured  to  allow  either 
16K,  32K ,  48K ,  or  64K  access  by  another  bus  master,  with 
the  installation  of  the  iSBC  300  Multimodule  RAM.  In  this 
thesis  project  all  of  the  64K-byte  memory  of  the  slave  iSBC 
86/12A  is  made  accessible  to  the  master.  Furthermore, 
both  iSBC  86/12A  boards  are  configured  to  occupy  the  first 
128K  section  of  the  1-megabyte  address  space. 

3.  A-tor?  Converter  Board 

This  board  is  electrically  and  mechanically  compa¬ 
tible  with  any  iSBC  86/12A  board  and  with  MDS.  Both  the 
anolog  input  and  output  systems  are  contained  on  a  single 
printed  circuit  board  that  is  treated  as  ordinary  memory 
locations  by  the  CPU  (memory  mapping).  This  board  simply 
gets  the  analog  signals  form  the  potentiometers  and  con¬ 
verts  them  to  the  digital  signals  compatible  with  TTL 
standards.  The  output  of  the  A-to-D  converter  is  one  byte 
per  potentiometer  input,  which  varies  from  +127  to  -128. 
This  is  the  maximum  value  range  a  fixed  binary  (7)  variable 
can  assume  in  the  PL/I  language,  by  definition.  So,  the 
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Figure  2.2  -Interrupt  Matrix  Interconnection 


software  system  thinks  of  the  potentiometer  value  as  chan¬ 
ging  between  +127  and  -128.  The  A-to-D  converter  board  is 
configured  to  occupy  the  segment  D000:  (14th  64K  portion  of 
the  1-megabyte  address  space;. 

4.  ADM-3A  Terminal 

This  terminal  is  the  only  means  by  which  the 
operator  communicates  with  the  system.  It  is  connected  to 
the  system  with  the  master  iSBC  8S/12A  board's  serial 
I/O  connector.  It  is  an  interactive  device  which  is  used 
to  enter,  display,  and  send  information  to  a  host  computer, 


and  to  receive  and  display  information  from  that  computer. 
The  information  exchange  between  the  terminal  and  the 
computer  is  made  at  different  baud  rates,  ranging  up  to 
19200.  In  this  scheme,  a  9600  baud  rate  is  used.  The 
keyboard  contains  59  keys.  The  display  memory  is  a  RAM 
which  is  capable  cf  holding  1920  characters.  Data 
characters  are  displayed  on  24  or  12  equally-spaced  rows, 
each  consisting  of  80  columns. 

5.  RG-512  Retrographics  Card 

The  RG-512  Retrographics  printed  circuit  board  is 
added  to  the  ADM-2A  terminal  to  extend  the  data  and 
graphics  display  capabilities  with  the  aid  of  a  Z-80A 
built-in  microprocessor.  The  RG-512  employs  the  bit  map 
method  of  storing  graphic  images.  This  information  is 
stored  in  a  digital  memory  as  a  rectangular  array  of 
bits.  Each  bit  is  mapped  onto  the  CRT  screen  and  can  cause 
a  bright  spot  to  be  displayed.  The  RG-512  displays  graphs 
and  pictures  by  writing  the  proper  bits  into  the 
graphics  memory.  One  of  the  important  features  of  the  RG- 
512  is  the  ability  to  erase  portions  of  the  screen 
selectively.  This  is  desirable  when  the  application 
requires  the  use  of  dynamic  displays  employing  motion  or 
rotation  to  convey  Information.  The  RG-512  has  four  modes 
of  operation.  These  are  the  ADM-3A  Alpha  Mode,  the  4010 
Alpha  Mode,  the  Point  Mode,  and  the  Vector  Mode.  The  first 
one  is  equivalent  to  the  operation  of  ADM-2A  without  RG- 


512.  The  latter  three  modes  make  use  of  the  bit  map 
method . 

6 .  Potentiometers 

Two  sets  of  triplet  potentiometers  are  used  as 
simulating  analog  sensor  information  sources.  They  feed 
anolog  signals  to  the  input  of  the  A-to-D  converter  hoard, 
varying  between  -5V  and  +5V. 


III.  IMPLEMENTATION  Of  THE  SOFTWARE 

A.  GENERAL  INFORMATION 
1.  Modularity 

A  modular  and  extensible  simulation  program  is 
aimed  at  simplifying  the  debugging  and  testing  phase  and  at 
facilitating  possible  alterations.  The  hierarchy  of  the 
modularity  is  composed  of  a  head  module  and  four  second- 
level  modules  connected  to  the  head  module.  These  second- 
level  modules  are  the  initialization  module,  the  simulation 
system  module,  the  real  time  executive  module,  and  the 
dynamic  debugging  tool  module.  These  modules  are 
separately  compiled  PL/1-86  and  RASM-86  programs.  Each 
main  module  is  further  subdivided  into  third-level  modules 
to  gain  a  finer  granularity  of  modularity.  In  the 
programs,  two  useful  special  features  of  PL/l-86  are 
used.  Those  are  ^INCLUDE  and  %REPLACE  statements.  By 
those  statements,  global  declarations  that  are  the  same  in 
the  scope  of  the  simulation  program  need  not  be  declared 
within  each  and  every  module.  Instead,  they  are  grouped 
together  in  the  GLOBAL5 . INP  declaration  file.  The  XREPLACE 
statement  allows  constants  to  be  declared  as  in  the  other 
high-level  languages  like  Pascal,  such  that  the  value  of 
the  constants  can  be  changed  without  having  to  go  through 
every  program  segment  in  which  they  occur. 


2.  Data  Structures 

Linear  arrays  and  arrays  of  structures  (records) 
are  used  in  the  simulation  program  as  data  structures. 
These  data  structures  are  then  linked  to  each  other  to 
establish  circular  linked  lists.  Figure  3.1  (on  the  next 
page)  explains  the  general  picture  of  the  circular  linked 
lists  in  the  simulation  program.  Fixed  size  data 
structures  with  fixed  binary  pointers  are  used  in  the 
program,  rather  than  pointer  data,  to  avoid  the  dynamic 
system  overhead  and  to  retain  the  benefit  of  random  access 
capabilities  inherent  to  linear  arrays. 

The  structure  SHIP  has  two  pointers,  in  addition  to 
the  fields  that  hold  specifications  about  the  ships  in  the 
area.  Those  pointers,  PTH  and  LINK-SHIP  have  different 
purposes  for  different  ships.  SHIP  (1),  for  instance, 
being  the  ownship  points  to  two  different  circular  linked 
lists.  PTH  points  to  the  enemy  ship's  circular  linked  list 
by  pointing  to  the  target  ship  which  is  engaged  (tracked) 
for  the  sea  battle.  The  other  pointer,  LINK-SHIP  points  to 
the  friendly  ships  circular  list.  The  PTR  field  of  other 
ships,  on  the  other  hand,  points  to  another  circular  linked 
list,  VAKE,  to  record  their  past  positions  that  will  be 
used  for  tracking  and  display  purposes,  where  LINK-SIP 
points  to  the  other  ships  in  their  category.  The  reason 
for  using  circular  lists  in  this  program  is  the  ease  with 
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Figure  3.1  The  structure  of  the  circular  linked  lists 


which  one  traverses  through  the  lists  and  which  does  not 
necessitate  the  use  of  another  external  pointer. 

3 .  Other  Features 

The  PL/I  exception  handlers  (ON  tody  statements) 
are  used  extensively  in  the  dynamic  debugging  module,  and 
in  various  interactive  parts  of  the  program,  to  intercept 
the  error  conditions  that  might  be  raised  during  the 
testing  and  execution  of  the  program.  The  ON  body 
statements  are  contained  in  the  ERRHAND .AID  file,  which  is 
an  %INCLUDE  file.  Upon  receiving  the  control  through  a 
raised  error  condition,  the  statements  in  the  file  prompt 


the  user  and  give  the  control  over  to  the  REENTRY. PLI 
interactive  debugging  tool. 

One  of  the  exceptional  features  of  the  simulation 
program  is  the  use  of  non-local  goto  statements  which  are 
unacceptable  in  structured  style  of  programming.  It  is  an 
inevitable  requirement,  by  the  PL/I  language,  to  suppress 
the  raised  error  conditions  by  a  non-local  goto  statement. 
It  is  also  used  in  some  parts  of  the  dynamic  debugging 
module,  in  order  to  by-pass  the  flow  of  control  over  to  the 
debugging  program  when  the  optional  ERRORON  boolean  switch 
is  closed.  Explicit  comments  are  offered  wherever  non¬ 
local  goto  statements  are  used,  to  avoid  confusing  the 
reader . 

B.  SOFTWARE  FUNCTIONAL  DESCRIPTION 

In  the  following  sections,  the  structure  of  the  modules 
and  the  programs  that  belong  to  those  modules  are 
described.  The  program  listings  are  presented  as 
appendices . 

1.  Head  Module 
a.  WAR. PLI 

This  main  procedure  is  the  head  node  of  the 
hierarchical  structure  of  the  procedures  used  to  modularize 
and  structure  the  Implementation  of  the  simulation  program. 
It  contains  two  call  statements,  one  of  which  is  to 
the  initialization  module,  to  set  up  the  tactical  database 


and  to  initialize  various  external  variables  that  are  used 
throughout  the  simulation  program.  The  other  call  is  for 
passing  the  control  to  the  real  time  executive  module  where 
the  control  stays  for  the  rest  of  the  program  execution. 
A  listing  of  VAR.FLI  is  presented  as  Appendix  A. 

2.  Initialization  Module 
a.  INITVARS.PLI 

This  PI/I  routine,  when  called  from  the  main 
procedure,  constructs  the  tactical  database  in  an 
interactive  manner.  It  first  initializes  the  pool  of 
available  SHIP  and  WAKE  modes  for  later  use.  It  then  gets 
the  interval  of  time  which  is  used  to  update  the 
information  about  ships  in  the  tactical  area  and  other  time 
dependent  functions.  This  time  interval  must  be  equal  to 
the  period  of  the  real-time  interrupts  which  depend  on  the 
timing  constants  used  during  the  initialization  of  PIT. 
Detailed  information  will  be  presented  later  under  the 
hardware  Initialization  section.  Then  the  control  proceeds 
to  establish  the  tactical  database  interactively.  In  this 
session,  the  initial  Information  about  azimuth,  range, 
friend  or  enemy  are  written  to  the  proper  fields.  Then,  a 
circular  linked  list  of  four  nodes  is  composed  and  the  PTR 
field  Is  made  to  point  to  that  list.  Finally,  dependent  on 
whether  friend  or  foe,  that  particular  node  is  added  to  the 
appropriate  circular  linked  list.  INITVARS.PLI  makes  use 
of  various  internal  subroutines  for  linked  list 


operations.  Those  subroutines  simply  extract  a  node  from 
the  pool  of  available  nodes.  After  establishing  the  linked 
lists,  the  I NITVAHS . PLI  initializes  external  variables  that 
are  used  throughout  the  program.  A  listing  of  INITVARS.PLI 
is  presented  in  Appendix  B. 

3.  Simulation  System  Module 

This  module  is  composed  of  four  PL/I  programs  which 
perform  the  simulation  under  the  control  of  the  real-time 
executive  module.  The  following  subsections  describe  the 
functional  description  of  those  programs.  The  listings  of 
the  program  segments  that  comprise  this  module  are 
presented  in  Appendix  C. 

a.  TACTICAL. PLI 

This  routine  has  the  highest  priority  among  the 
system  module  programs.  It  first  updates  the  position  of 
each  ship  in  the  tactical  area  by  calculating  the  relative 
velocity  and  multiplying  that  with  the  time  interval,  which 
is  the  period  of  timing  interrupts  that  occur  every  250 
milliseconds.  The  control  then  proceeds  to  calculate  the 
future  positions  of  the  ships,  for  those  ships  which  have 
been  in  the  area  for  more  than  4  seconds,  and  which  are 
Included  in  the  enemy  ship  circular  linked  list.  The 
routine  uses  the  polynomial  least  squares  curve  fitting 
method  with  Legendre  Polynomials.  The  coefficients  are 
pre-calulated  for  the  position  of  the  ship  one  second  after 
the  time  of  calculations,  based  on  the  past  four  wake 


points.  TACTICAL. PLI  also  calculates  the  trajectory  of  the 
travelling  projectile  if  the  gun  is  fired, 
h .  DISPLAY. PLI 

This  routine,  which  is  invoked  every  second,  is 
the  interface  of  the  simulation  program  for  the  ADM-3A 
screen.  It  simply  traverses  the  circular  linked  lists  and 
generates  the  appropriate  display  objects  for  the  ships, 
their  aim  points  which  the  own  ship  aims  at,  and  the  gun 
aim  point.  It  also  displays  the  travelling  projectile  if 
it  is  fired  by  the  system.  The  routines  for  generating  the 
objects  are  internal  for  the  DISPLAY. PLI.  Another  routine, 
TRANSLATE,  translates  the  cartesian  coordinates  to  the 
stream  of  characters  that  represent  the  x  and  y  grid  coor¬ 
dinates  of  the  RG-512  Retrographic  Screen  Memory.  Finally, 
the  internal  routine  DRAW  puts  the  generated  objects  on  the 
screen  in  vector  mode.  According  to  the  key  variable,  D, 
it  either  sets  the  data  level  to  white  and  puts  the  object 
on  the  screen,  or  sets  the  data  level  to  black  and  makes 
selective  erasures. 

c.  STATUS. PL  I 

This  routine,  which  is  invoked  at  every  second, 
is  the  interface  of  the  system  to  the  ADM-3A  video  terminal 
keyboard.  The  commands  for  the  system  are  read  from  the 
keyboard  by  calling  the  serial  I/O  chip  (USART)  interface 
assembly  program,  KEYBOARD,  which  will  be  presented  under 
Miscellaneous  Assembly  Routines. 


The  are  four  boolean  variables  used  in  the 


simulation  program.  Those  are  ENGAGED,  MAGNIFIED,  FIRED, 

and  ERBORON.  The  STATUS. PLI  sets  these  variables 

according  to  the  value  of  the  parameter  passed  to  the 
assembly  interface  routine.  ENGAGED  (with  "E")  shows  if 
the  system  is  engaged  to  any  target  (for  TACTICAL  .PLI ) . 
MAGNIFIED  (with  "m"),  which  is  used  in  DISPLAY. PLI,  shows 
which  display  scale  is  being  used  and  what  the  reference 
point  of  the  display  is.  Usually,  the  display  on  the 
screen  is  relative  to  own  ship.  But  that  can  be  changed  so 
that  the  ship  engaged  is  at  the  center  to  the  screen  by 
setting  MAGNIFIED  true.  FIRED  (with  "f")  boolean  variable 
is  used  to  commence  the  ballistic  calculations  and 
display.  It  is  used  both  in  TACTICAL. PLI  and  DISPLAY. PLI. 
Finally,  ERRORON  (with  "D")  is  used  to  transfer  the  control 
to  the  dynamic  debugging  module, 
d.  IDLE. PLI 


This  program  is  the  idle  routine  for  the 
system,  as  it  waits  for  a  250  millisecond  timing  interrupt 
to  occur.  It  is  the  interface  program  for  the  six 
potentiometers  which  are  used  as  sensors  for  the  own  ship 
velocity  vector,  the  known  ship  velocity  vector,  and  the 
gun  elevation  and  bearing.  The  velocity  vectors  are  com¬ 
posed  of  speed  and  course  components.  The  IDLE. PLI  gets 
this  information  by  calling  the  Analog-to-Digital  Converter 
Interface  assembly  program,  ATOD.  The  control  then 


proceeds  to  convert  this  information,  which  is  in  the  fixed 
binary  (7)  form  in  range  (-128,  +127),  to  appropriate 
coordinate  values,  e.g.  50  knots  maximum  speed  and  the  true 
azimuth  between  0  and  360  degrees.  This  routine  calculates 
own  ship  velocity  components  in  cartesian  coordinates  for 
later  use  by  TACTICAL .PLI .  It  also  makes  the  initial 
ballistic  computations  for  the  gun. 

4.  Real  Time  Executive  Model 

This  module  works  as  the  interrupt  handler  for  the 
real  time  Interrupts  that  are  initiated  by  programmable 
hardware  components  every  250  milliseconds.  It  is  invoked 
by  the  WAR. PLI  the  first  time  and  interrupts  thereafter. 
It  responds  to  the  timing  interrupts,  which  tell  the  system 
that  data  must  be  collected  at  this  point  in  time.  The 
module  then  resolves  the  priorities  of  the  simulation 
system  module  programs  and  arbitrates  the  flow  of  control 
during  the  execution  of  the  system.  The  real  time 
executive  module  makes  use  of  the  operating  system 
primitives,  which  are  presented  in  the  following 
subsections.  The  labels  PI  through  P4  are  associated  with 
the  simulation  system  modules  TACTICAL. PLI,  DISPLAY. PLI, 
STATUS. PLI,  and  IDLE. PLI,  respectively.  The  listing  of  the 
programs  included  in  the  Real  Time  Module  are  presented  in 
Appendix  D. 


a.  ARBITER. A86 

This  assembly  language  program  is  the  real 
"workhorse”  of  the  entire  system.  It  first  allocates  stack 
areas  for  four  simulation  system  during  the  assembly  time. 
Upon  invocation  by  the  main  procedure,  it  initializes  the 
programmable  hardware  components  and  transfers  the  control 
to  the  P4.PLI  process,  which  in  turn  calls  IDLS.PLI 
repetitively  until  the  first  timing  interrupt  occurs.  The 
interrupt  entry  point  PROC0,  where  the  process  switcning 
starts,  is  entered  by  the  interrupt  software.  At  this 
point  of  execution,  the  external  variable  fourthevc,  which 
signals  the  system  that  250  millisecond  event  has  occured, 
is  updated  to  the  new  value  by  incrementing  it  by  one. 
After  storing  the  state  of  the  program  which  is  interrupted 
during  its  execution,  ARBITER. A86  invokes  SCHEDULE. PLI  to 
obtain  the  name  of  the  ready  program  that  has  the  highest 
priority.  If  there  are  none,  the  interrupted  program  is 
resumed.  If  there  is  any  ready  process  of  higher  priority, 
then  ARBITER. A86  loads  the  process  state  and  gives  the 
control  over  to  it.  During  this  process  switching,  the 
upper  boundaries  of  the  stack  areas  are  checked  for  a 
possible  stack  overflow,  which  could  happen  if  the  time 
interval  was  not  sufficiently  large  for  the  system  module 
routines  to  finish  execution  before  the  next  timing 
interrupt  comes.  ARBITER. A86  has  a  second  entry  point, 
STORESTATUS,  for  the  synchronization  primitive  AWAIT. PLI  to 


38 


enter  when  the  correct  number  of  interrupts  for  the  calling 
synchronization  primitive  have  not  yet  occured. 
h.  AWAIT.  P1*I 

This  synchronization  primitive  is  invoked  as  as 
an  operating  system  primitive,  by  any  process,  PI  through 
P3.  AWAIT  compares  the  value  of  the  external  variable 
FOURTHEVC  to  the  threshold  value  of  the  calling  process  to 
see  if  it  is  greater  or  equal  to  the  value  at  which  the 

process  is  to  proceed.  If  not,  then  it  calls  the 

STORESTATUS  entry  of  ARBITER. A86  to  relinquish  the  control 
to  the  awaiting  ready  process,  or  to  the  P4.PLI  that  calls 
the  IDLE.PLI  simulation  system  program  as  the  system  idling 
routine. 

C.  SCHEDULE. PLI 

This  synchronization  primitive  is  called  by 
ARBITER. A86  to  return  the  name  of  the  highest  priority 
ready  process.  It  does  that  simply  by  identifying  the 

first  ready  process  on  the  list.  Because  the  scheduler 
scans  the  list  in  the  descending  priority  order,  the 

highest  priority  ready  process  will  automatically  be 
scheduled. 

d.  THRESH. PLI 

This  routine,  when  invoked  by  processes  PI 
through  P3f  increments  the  corresponding  thresholds  in  an 
external  one  dimensional  array  called  THRESHOLD.  This 
table  is  used  by  the  AWAIT. PLI  and  SCHEDULE. PLI 
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synchronization  primitives  to  decide  whether  or  not  a 
process  is  ready  for  execution. 

e.  Pl.PLI 

This  process  is  basically  an  infinite  loop. 
Within  this  loop,  there  are  three  subroutine  calls.  The 
routine  first  makes  a  call  to  AWAIT. PLI  to  see  if  it  is 
time  for  it  to  proceed.  If  not,  the  control  doesn't  come 
back  again?  instead,  the  current  state  of  the  process  is 
stored  by  ARBITER. A86  and  the  highest  priority  ready  process 
is  executed.  If  it  is  the  time,  the  control  proceeds  to 
call  the  simulation  system  module  program  TACTICAL. PLI . 
After  that,  a  call  to  THRESH. PLI  is  made,  where  the 
threshold  value  that  is  allocated  to  Pl.PLI  is  incremented 
by  the  proper  value.  When  the  infinite  do  loop  repeats 
itself,  the  call  to  the  AWAIT. PLI  will  indicate  that  the 
process  TACTICAL. PLI  is  not  yet  ready  for  execution  and 
control  is  transfered  to  the  highest  priority  ready 
process. 

f.  P2.PLI 

This  process  is  identical  to  Pl.PLI  in  form 
except  the  call  is  to  DISPLAY. PLI  instead  of  to 
TACTICAL. PLI. 

g.  P3.PLI 

This  process  is  identical  to  Pl.PLI  in  code 
except  the  call  is  to  STATUS. PLI. 
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fa.  P4.PII 

This  process  is  similar  to  PI  through  P3  in  the 
structure  described  above.  There  is  only  one  call  in  the 
infinite  do  loop,  which  is  to  IDLE.PLI.  This  routine  is 
always  ready  for  execution  and,  basically,  repeats  itself 
until  the  next  timing  interrupt  comes  along. 

5*  Miscellaneous  Assembly  Routines 

There  are  few  machine  dependent  functions  that 
cannot  be  accomplished  by  the  high-level  language  PL/I-86. 
Assembly  routines  were  written  to  interface  the  PLI-86 
programs  with  the  hardware  of  the  8086  microprocessor. 
These  assembly  routines  are  included  within  the  main  body 
of  ARBITER. A86.  There  are  two  parameter  passing 
conventions  from  PL/I-86  to  the  assembly  language  routines. 
In  the  first  one,  there  is  only  one  argument  passed  in  the 
accumulator,  as  in  a  function  call.  In  the  subroutine 
calls,  which  is  the  case  here,  the  address  of  the  VECTOR 
that  contains  the  pointers  to  the  actual  parameters  is 
passed  in  the  BX  register.  The  following  subsections  give 
some  descriptions  about  those  assembly  routines.  Appendix 
E  shows  the  listings  of  the  modules, 
a.  KEYBOARD. A86 

This  routine  is  invoked  by  STATUS. PLI  to  read 
the  keyboard.  It  is  written  so  that  the  keyboard  :tatus  is 
read  to  see  if  a  key  had  been  pressed  instead  of  waiting 
indefinitely  until  a  key  was  depressed,  as  would  be  the 
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case  had  the  PL/I  get  statement  been  used.  The  program 
first  reads  in  the  status  of  the  serial  I/O  interface  chip 
(USART)  to  see  if  a  character  has  been  received  from  the 
keyboard.  If  it  has,  then  the  character  is  read  and  placed 
into  a  corresponding  character  variable,  which  is  the 
formal  parameter  in  the  sutroutlve  invocation.  If  there  is 
no  character  received  since  the  last  attempt  to  read,  the 
ASCII  equivalent  of  0  is  put  in  key.  The  reason  for  that  is 
that  the  character  0  is  not  being  used  as  a  command. 

b.  AT0D.A86 

This  assembly  routine  is  called  by  IDLE.PLI  to 
read  the  first  six  Analog-to-Dlgital  Converter  Board 
outputs.  The  reason  to  write  this  assembly  routine  is  that 
the  Analog-to-Digital  Converter  ports  are  memory  mapped  to 
be  in  the  segment  D000H.  The  PL/I  function  UNSPIC  works  for 
those  memory  locations  which  are  included  within  the  first 
64K  bytes  of  memory.  The  assembly  routine  sets  the  proper 
segment  and  source  index  registers  tc  point  to  those 
locations  and  makes  an  ordinary  read  operation.  This  value 
is  then  put  in  the  formal  parameter  passed  tc  the  PLI-86 
routine. 

C.  RINGBELL . A86 

This  assembly  routine  simply  sends  a  bell 
character  to  the  video  terminal  and  causes  a  bell  sound  to 
ring.  This  is  equivalent  to  sending  a  control  5  in  PL/I -86. 
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The  only  difference  is  that  it  can  he  used  in  other 
assembly  routines. 

d.  WAIT. A86 

This  assembly  routine  reads  in  the  status  of 
the  I/O  interface  chip  and  waits  until  the  transmitter 
buffer  is  empty!  i.e.  the  character  which  hai  been  in  the 
buffer  is  received  by  the  video  terminal  and  an 
acknowledgement  signal  is  sent  back  to  the  interface  chip. 
This  routine  is  used  by  assembly  routines  that  put  out  a 
message. 

e.  SUSPEND .A86 

This  routine  simply  resets  the  interrupt  bit  of 
the  program  status  word  (PSW)  to  disable  the  8086  CPU  from 
acknowledging  the  interrupts.  It  is  used  by  the  dynamic 
debugging  system  to  stop  the  real  time  clock. 

f.  RESUME. A86 

This  routine  first  sets  the  interrupt  flag  to 
enable  the  8086  CPU  to  respond  to  the  interrupt  requests. 
It  also  resets  the  PIT  that  is  used  to  generate  the  timing 
clock  pulses  for  the  PIC. 

D.  INITIALIZATION  OF  THE  PROGRAMMABLE  COMPONENTS 

The  iSBC  86/12A  board  has  three  programmable  hardware 
components*  which  were  described  in  Chapter  II.  In  the 
following  subsections*  the  initialization  sequences  for 


those  hardware  components  which  produce  the  real  time 
synchronization  are  described. 

1.  USART  Programming 

The  8251A  USART  converts  parallel  output  data  into 
virtually  any  serial  output  data  format.  The  USART  also 
converts  serial  input  data  into  the  parallel  data  format. 
Prior  to  starting  to  transmit  or  to  receive  data,  the  USART 
must  he  loaded  with  a  set  of  control  words.  These  control 
words,  which  define  the  complete  functional  operation  of 
the  USART,  must  immediately  follow  a  reset  (internal  or 
external).  There  are  two  types  of  control  words,  namely,  a 
Mode  instruction  and  a  Command  instruction.  Once  the  Mode 
instruction  has  been  sent,  the  Command  instruction  can  be 
sent  at  any  time  prior  to  a  read/write  operation.  The 
following  assembly  code  is  used  to  initialize  the  USART 
read/write  mode: 

MOV  AL.37H 
OUT  00DAH ,AL 

During  the  course  of  execution,  the  serial  I/O 
interface  routine  executes  the  following  assembly  code  to 
read  the  USART  status  and  to  read  the  receiver  buffer  if 
any  character  has  been  received: 

IN  AL.00DAE 
AND  AL,02H 
JZ  KEYBOARD1 
IN  AL,00D6H 
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2.  PIT  Programming 

The  8253  PIT  has  three  independent  counters. 
They  are  Counter  0,  Counter  1,  And  Counter  2.  The  input 
clock  frequency  is  22.1184  MHz  supplied  by  a  crystal  oscil¬ 
lator.  The  input  clock  frequencies  can  be  adjusted  via 
Jumpers.  In  this  project,  Counter  1,  with  the  default 
factory  jumper  connection  (E59-E60),  is  used.  The  input 
frequency  is  153.6  KHz.  It  is  chosen  to  work  in  mode  0  so 
that  it  gives  an  interrupt  on  terminal  count.  The  formula: 


N  =  TC 

where 

N  is  the  count  value  for  the  counter 

T  is  the  desired  interrupt  time  interval 
in  seconds 

C  is  the  internal  frequency  (Hz) 

From  the  above  formula,  the  count  number  for 
the  counter  1  is  found  to  be  38400  decimal  (9600  hex). 
Since  it  is  not  possible  to  express  this  number  in  four 
decimal  digits,  the  binary  count  mode  is  selected.  The 
counter  is  initialized  by  sending  a  mode  control  word, 
followed  by  a  down-count  number.  Once  the  counter  is 
initialized,  sending  the  down-count  number  resets  it  to  the 
start  condition.  The  following  sequence  of  code  is  used  to 
program  the  PIT: 


MOV  AL,50E 
OUT  00D6E.AL 
MOV  AI»  ,005 
OUT  00D2H.AL 
MOV  AL ,605 
OUT  00D6H.AL 
MOV  AL  ,  965 
OUT  00D2H.AL 


3.  PIC  Programming 

The  8259A  PIC  is  programmed  in  the  nested  mode. 

The  master  PIC  with  no  slaves  is  accepted.  For  this  parti¬ 
cular  situation,  the  initialization  words  1,2,  and  4  are 
sent.  The  initialization  word  2  is  set  to  represent  the 
interrupt  vector  address.  This  is  the  address  that  the 
control  is  given  when  the  interrupt  1  occurs  (04E) .  An 
interrupt  mash  tyte  is  used  to  mask  out  the  irrelevant 
Interrupts  for  the  purpose  of  this  thesis.  The  PIC  can  te 
reset  after  each  interrupt  simply  by  sending  the  EOI  (end 
of  interrupt)  status  hyte  to  the  appropriate  address.  The 
initialization  sequence  is  as  follows: 


CLI 

MOV  AL ,  13H 
OUT  00C0E , AL 
MOV  AL.20E 
OUT  00C2E 
STI 

MOV  AL.0FDE 
OUT  00C2B.AL 


To  reset  the  PIC, 


MOV  AL , 20E 
OUT  00C0,AL 


E.  ASSEMBLY,  COMPILING  AND  LINKING 

The  assembly  language  code  was  written  in  RASM-86  and 
assemtled  hy  using  the  RASM-86  Assembler.  This  assembler 
produces  relocatable  files  that  can  then  be  linked  with 
other  separately  compiled  or  assembled  object  files  by  Link 
86.  This  linker  accepts  three  types  of  input  files.  Those 
are  the  object  file,  library  file,  and/or  an  input  file. 
Input  files  are  very  useful  tools  in  that  they  include 
input  command  lines  by  an  input  file  instead  of  writing  the 
command  line  each  time  the  programs  are  to  be  linked.  The 
PL/I-86  compiler  is  used  to  compile  PL/I  programs.  This 
compiler  requires  a  128  Kbyte  RAM,  as  opposed  to  the  PL/I- 
80  compiler,  which  requires  48K  RAM. 

F.  TESTING 

The  hierarchical  simulation  program  modules  were 
designed  and  tested  in  a  top-down  manner.  An  extensive 
dynamic  debugging  module  was  used  in  the  testing  of 
individual  modules  (see  Appendix  F).  The  testing  phase  is 
first  started  with  writing  a  skeletal  model  for  the  real 
time  executive  module.  The  PL/I-86  output  statements 
(stubs),  which  printed  some  appropriate  numbers,  were 
Inserted  in  the  places  where  the  simulation  system  module 
programs  were  Invoked.  The  DDT86  (Dynamic  Debugging  Tool) 
was  used  to  test  and  debug  this  skeleton  program.  Since  it 
was  a  real-time  interrupt  driven  program,  the  interrupt 
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enable  tit  (I)  of  the  program  status  word  was  reset  to  zero 
(0)  to  control  the  flow  of  the  program.  Some  error 
checkings  are  inserted  in  the  main  assembly  language 
program,  ARBITER. A86,  to  see  whether  the  process  switching 
was  done  correctly,  or  to  see  if  any  of  the  stacks 
allocated  to  the  synchronization  primitives  have 
overflowed . 

After  testing  the  real-time  executive  model,  the  second 
phase  was  the  testing  of  the  subroutines  that  are  used  by 
the  simulation  system  module  programs.  Appendix  &  shows  an 
example  for  testing  a  subroutine. 

The  third  phase  of  the  testing  was  to  test  and  debug 
the  simulation  system  program.  The  dynamic  debugging 
module  was  used  for  this  purpose.  This  module  is  composed 
of  FL/I-86  %INCLUDE  files  and  external  PL/I-86  programs. 
The  %INCLUDE  files  are  inserted  into  the  various  parts  of 
the  program  being  tested.  The  code  of  this  debugging 
system  is  bordered  with  comment  lines  from  the  main  body  of 
the  program  it  tests.  It  is  not  visible  to  the  program, 
i.e.,  it  brings  its  local  and  global  variables  with  the 
LOCALS. AID  declaration  ^INCLUDE  file.  It  is  possible  to 
manipulate  the  system's  external  variables  through  the 
debugging  system  module,  IDLE.PLI. 

The  PL/I-80  had  been  used  in  the  early  stages  of  the 
testing  phases  because  of  the  existence  of  redundant  Intel 
8080  based  systems  in  the  Naval  Postgraduate  Micro-Lab. 
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But  in  the  later  stages,  it  was  realized  that  this  had 
caused  some  problems,  due  to  some  incompatibilities  between 
the  PL/I-80  and  PL/I-86  systems.  These  deficiencies  of  the 
PL/ I -86  have  necessitated  the  testing  and  debugging  of  the 
programs  to  be  done  in  the  PL/I— 86  based  systems,  The  need 
for  such  a  thorough  debugging  system  module  was  then 
realized. 


IV.  CONCLUSIONS 


The  original  objectives  of  the  thesis  have  been 
accomplished,  to  a  large  extent.  The  hardware 
interconnections  intended  to  promote  real  time  clock 
operations  have  been  successful.  A  test  model,  which 
comprised  the  real  time  executive  module  and  the  FL/I  put 
statements,  instead  cf  the  simulation  system  modules,  was 
developed  to  check  the  system's  operation  and  timing. 
Correct  results  appeared  on  the  screen.  Then,  the  testing 
and  debugging  of  the  simulation  system  programs  showed  that 
their  algorithms  and  operations  were  correct,  with  the 
exception  of  the  simulation  system  program,  DISPLAY. PLI. 
The  testing  of  DISPLAY. PLI  shewed  that  the  objects  to  be 
displayed  on  the  video  screen  were  not  successfully  put  on 
the  screen.  One  error,  which  was  an  automatic  conversion 
error,  was  found  in  the  routine  TRANSLATE  and  corrected  by 
using  a  step  variable.  However,  an  error  still  exists  in 
the  body  of  the  procedure  DRAW. 

Since  the  testing  phase  of  the  DISPLAY. PLI  has  not 
been  accomplished,  the  objective  of  synchronizing  two  iSBC 
86/12A  boards  could  not  be  accomplished.  The  intended 
purpose  for  this  objective  was  to  make  the  second  iSBC 
86/12A  Jump  to  a  waiting  loop  with  the  initial  power  start 
up  interrupt  (reset),  to  load  the  assigned  simulation 
program  segment  to  the  common  RAM,  and  to  direct  it  to  the 


beginning  of  that  program  segment,  through  a  bus  vectored 
interrupt . 

A  hierarchical  and  modular  program  model  was 
constructed  through  the  use  of  data  structures  and 
structured  programming.  The  modularization  allows  possible 

future  changes  to  the  programs. 

The  simulation  system  program  constructed  in  this 
thesis  could  be  a  basis  for  further  enhancements  towards  a 
complete  fire  control  system,  or  a  related  tactical 
simulation  system,  due  to  its  modularized  nature. 

The  dynamic  debugging  module  designed  to  test  and 
debug  the  simulation  system  modules  can  be  used  for  the 
purpose  of  testing  any  other  programs,  simply  by  changing 
the  names  and  formats  of  the  variables  that  the  debugging 
system  manipulates.  The  advantage  of  using  the  %BEPLACE 
and  % INCLUDE  pre-processor  statements,  which  are  peculiar 
to  the  PL/ 1-86  version  of  the  subset  G,  makes  such  an 
implementation  feasible. 


APPENDIX  A 

HEAD  MODULE  PROGRAM  LISTINGS 


A.  VAR.PLI 
/* 

Prog  Name  :  WAR.PLI 

Date  :  December  82 

Written  "by  :  M.  Kadri  Ozyurt 

For  s  Thesis 

Advisor  :  Professor  Kodres 

Purpose  :  This  is  the  main  procedure  of  the 

modular  simulation  program.  It  invokes  the  initialization 
module  to  set  up  the  target  database  and  tc  initialize  the 
external  variables  used  throughout  the  simulation  program. 

*/ 


WARS  PROCEDURE  OPTIONS (MAIN ) ; 


/♦external  procedures*/ 

DCL 

(INITVARS  ARBITER)  ENTRY? 


/♦this  call  to  the  initialization  module  initializes  the 
simulation  system*/ 

CALL  INITVARS? 

/♦this  call  gives  the  control  over  to  the  real  time 
executive  module*/ 

CALL  ARBITER? 


END  war; 
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£.  GLOBALS . INP 


Name 


/* 

Pro* 

Date 

Written  by 
For 

Advisor 
Purpose 


GLOBALS. INP 
December  83 
M.  Kadri  Oiyurt 
Thesis 

Professor  Kodres 

This  %include  file  contains  the  declara¬ 
tions  of  the  global  variables  used  in  the  simulation  program 

*/ 


DCL 

(COUNTER .SECONDS .MINUTES, HOURS ,  WAKE  PTR, 

SHIP  PTR,A7AILSEIP,AVAILWAKE,P  ,Q .NUMBERSRIPS, 

NODE, TARGET, KNOWN)  FIXED  BIN (7)  EXTERNAL, 

F0URTHE7C  FIXED  BIN (15)  EXTERNAL  , 

D  FIXED  BIN (7)  EXTERNAL, 

(DT,T  PRIME, T_OF,T)  FLOAT  EXTERNAL, 

(I, J. XX. IT)  FIXED  BIN ( 15) , 

CURRENTPROC  FIXED  BIN (7)  EXTERNAL  , 

(ENGAGED, MAGNIFIED, FIRED, ERRORON, DONE)  BIT(l)  EXTERNAL  , 

KEY  CHARACTER  (1)  EXTERNAL  , 

THRESHOLD (0:2)  FIXED  BIN (15)  EXTERNAL  , 

ARG (0:5)  FIXED  BIN(7)  EXTERNAL, 

(7X  OWN, VI  OWN ,7X  TARGET, 7T  TARGET, 7X_REL, 

YT^REL, 111  ROUND, YY_ROUND,YR)  FIXED  DECIMAL  EXTERNAL, 

ALPHA  FIXED  DECIMAL  EXTERNAL  , 

(AX  SUM ,BX  SUM.CX  SUM, AT  SUM, BY  SUM, Cl  SUM, 
AX";BX,CX,AY,BT,CY,X  AT5^Y  AT5  ,R ,DX  DT  AT5 , 

DY  DT_AT5,DR  DT  AT57X  OFFSET,!  OFFSET^M )FIXED  DECIMAL 

EXTERNAL, 


(01 ,02) (5)  FIXED  DECIMAL  EXTERNAL  , 


1  SHIP (MAX  SHIPS)  EXTERNAL, 

2  7EL0CITY , 

3  COURSE  FIXED  DECIMAL 
3  SPEED  FIXED  DECIMAL 
2  POSITION, 

3  AZIMUTH  FIXED  DECIMAL 
3  RANGE  FIXED  DECIMAL 


INIT (0.0), 
INIT (0 . 0) , 

INIT(0.0), 
INIT (0.0), 
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2  COORDINATES, 

3  X  FIXED  DECIMAL  INIT(0.0), 

3  Y  FIXED  DECIMAL  INIT(0.0), 

2  AIM, 

3  X  AIM  FIXED  DECIMAL  INIT(0.0), 
3  Y  AIM  FIXED  DECIMAL  INIT(0.0), 
2  COUNT" FIXED  BIN  (7)  INIT(0), 

2  NUMBER  FIXED  BIN  (7)  INIT(0), 

2  PTR  FIXED  BIN  (7)  INIT(0), 

2  LINK  SHIP  FIXED  BIN  (7)  INIT(0), 

2  FRIEND  BIT(l)  INIT (FALSE ) , 


1  OBJECT (MAX  SHIPS)  EXTERNAL, 

2  LOCATIONS, 

3  U  (0:10)  FIXED  EIN(15)  INIT ( ( 11 )  -1), 

3  Y  (0:10)  FIXED  BIN(15)  INIT((11)  -1), 

2  AIMS, 

3  U  AIM  (0:10)  FIXED  BIN(15)  INIT ( (11 )  -1 ) , 

3  V" AIM  (0:10)  FIXED  BIN(lS)  INIT ( ( 11 )  -1), 

2  GUN, 

3  U  GUN  (0:10)  FIXED  BIN(15)  INIT((11)  -1), 

3  V'GUN  (0:10)  FIXED  BIN(15)  INIT((11)  -1), 

2  VAXES, 

3  U  WAKE  (0:10)  FIXED  BIN(lS)  INIT((11)  -1), 

3  UUWAKE  (0:10)  FIXED  BIN(15)  INIT((11)  -1), 
3  Y  WAKE  (0:10)  FIXED  BIN(15)  INIT((11)  -1), 

3  YYWAKE  (0:10)  FIXED  BIN(15)  INIT((11)  -1 ) , 


1  GUN  EXTERNAL, 

2  POSITION, 

3  AZ  FIXED  DECIMAL  INIT(0.0), 

3  ALT  FIXED  DECIMAL  INIT(0.0), 

2  COORDINATES, 

3  X  GUN  FIXED  DECIMAL  INIT(0.0), 
3  I'GUN  FIXED  DECIMAL  INIT(0.0), 


1  WAKE( 4)  EXTERNAL, 

2  COORDINATES, 

3  X  VAKE  FIXED  DECIMAL  INIT (0.0), 
3  Y'WAKE  FIXED  DECIMAL  INIT(0.0), 
2  LINK  WAKE  FIXED  BIN(?)  INIT(0), 


(SUSPEND,RESUME,ARBITER ,INITYARS  )  ENTRY, 
KEYBOARD  ENTRY  ( CHARACTER (1 ) )  , 

ATOD  ENTRY  (FIXED  BIN(7), FIXED  BIN(7))J 
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C.  CONST. INP 


/* 

Prog  Name  :  CONST. INP 

Date  :  December  83 

For  :  Thesis 

Advisor  :  Professor  Kodres 

Purpose  :  This  ^include  file  contains  the  constant 

declarations  used  throughout  the  program. 

♦/ 


%BEPLACE 
MAI  WAKE  BT  4, 

MAI' SHI PS  BT  2, 

MAIVARS  BY  82, 

OWN  BT  1, 

RMAI  BT  25000.0, 

MAISQ  BT  1 .073E+09 , 

TOP  BT  32767.0, 

G  BT  10.7246, 

VM  BT  518.0, 

A  BT  512, 

B  BT  390, 

I  BT  1.40625, 

L  BT  4.513, 

TWO  PI  BT  360.0, 

PI  BY  3.1416, 

00  BT  1.0, 

TRUE  BT  'l'B, 

FALSE  BT  "0'B, 

NIL  BT  0, 

CLEAR  SCREEN  BT  "VfV, 
CLEAR  ALPHA  BT  '~Z\ 

V  EC  MOD  BT  "*]  ' , 

POINTMOD  BT  "V. 
ALPHA4010  BT  '~\ 

ALPHA3A  BT  ~I', 

WHITEMOD  BT  '~[a', 
BLACKMOD  BT  "*['? 


/♦max  number  of  wake  nodes*/ 
/♦max  number  of  ship  nodes*/ 
/♦max  number  of  variables*/ 
/♦ovnship  indicator*/ 

/*max  gun  range*/ 

/♦max  argument  for  SORT  */ 
/♦max  number  for  fixed  (15)*/ 
/♦gravitational  con.yd/sec2*/ 
/♦muzzle  velocity*/ 

/♦x  coord,  for  center*/ 

/♦y  coord,  for  center*/ 
/♦azimuth  proportionality  c.*/ 
/♦speed  proportionality  c.*/ 
/♦definition  for  360  degree*/ 
/♦definition  of  pi  rad/180deg*/ 
/♦legendre  poly,  of  zero  deg.*/ 
/♦boolean  true*/ 


APPENDIX  2 


INITIALIZATION  MODULE  PROGRAM  LISTINGS 


A.  INITVARS  .PLI 
/* 

Prog  Name  :  INITVARS. PLI 

Date  :  December  83 

Written  by  :  M.  Kadri  Ozyurt 

For  s  Thesis 

Advisor  :  Professor  Kodres 

Purpose  :  This  routine  prompts  the  user  to  give 

the  time  interval  (dt)  and  constructs  the  tactical  circular 
linked  list  in  an  interactive  manner.  The  control  then 
proceeds  to  initialize  the  external  variables. 

initvars :proc  external; 

/* 

del 

*/ 

%include'const.inp'; 

%include'globals.inp' ; 


/♦this  Iterative  loop  initializes  the  pool  of  available 
wake  nodes*/ 

do  i»l  to  max_vake-l» 

link_vake(i )=i+i; 

end; 

link_vake(max_vake)*nii; 

/♦this  sequence  initializes  the  pool  of  available  ship 
nodes*/ 

do  i«l  to  max  ships-i; 

llnk_ship(l)=i+i; 

end; 

link_ship(max  ships)«nii; 

put  skip  listT 'Enter  the  time  interval  (dt)  in  seconds'); 


/*  the  following  block  is  an  interceptor  for  a  too  large 
input  value*/ 

on  overflow  begin; 

put  list('***  too  large,  try  again'); 
goto  initi; 

end; 

initi: 

put  skip  list('>'); 
get  list(dt); 
revert  overflow; 

put  skip  list ( 'Constructi on  of  the  tactical  database'); 

nuirberships=0; 

done*falseJ 

/*  this  procedure  call  gets  a  ship  node  from  the  pool  of 
available  ships  and  assigns  its  address  to  ship  pointer*/ 
ship_ptr*getship( ); 
do  while  (“done); 

put  skip  list( 'Enter  the  position  of  ',numbershlps , 
'th  ship  in  true  azimuth  and  in  yards'); 
/♦the  following  two  on  condition  bodies  are  for  the  input 
line  at  init2*/ 

on  error  begin; 

put  list ( '***  bad  value, try  again'); 
goto  inlt2; 

end; 

on  fizedoverflow  begin; 

put  list('***  too  large, try  again'); 
goto  init2; 

end; 

init2: 

put  skip  list( '>') ; 

get  lis t (azimuth (ship. ptr ) , range ( ship.ptr) ) ; 

revert  error; 

revert  fizedoverflow; 

put  skip  list('?riend  or  foe  (E/E)?'); 

put  skip  list ( '> ' ) ; 

get  list(key); 

/*  the  following  sequence  adds  the  ship  node  to  the 
appropriate  circular  linked  list,  friend  ships  or  enemy 
ships,  according  to  the  friend  boolean  value  entered*/ 
if  (key*'!' ) ! (key='f ')  then  do; 
friendship  ptr)=true; 
if  link. shipl own )*nil  then 

link_ship( ship_ptr)*ship_ptr; 

else 

link  ship(shlp  ptr)=link  ship(own); 

/♦end  if*/ 


link  ship(own)=ship._ptr; 
end  7*do*/j 
else  do! 

friend (ship_ptr ) *f al se» 
if  ptr(own)*nil  then 

link_ship( ship_ptr)*sbip_ptr» 

else 

link  ship(ship  ptr)=ptr(own ); 

/♦end  i?*/ 
ptr(own)=ship  ptr; 
end  /*if*/; 

/♦  the  following  procedure  call  and  the  iterative  loop  get 
available  nodes  from  the  pool,  construct  a  circular  linked 
list  of  four  nodes,  and  assign  the  address  of  the  list  to 
the  ptr  pointer  of  the  ship  node  which  is  being 
constructed*/ 

wake_ptr=getwake( ) J 
q*wake_ptr» 
do  i*l~to  4» 

p-wake_ptr» 
wake_ptr=getwake( ) » 
link”wake(p)=wake_ptr » 
end  /*do*/i 

link_wake(wake_ptr)=q; 
ptr(ship_ptr)*wake.ptr J 
number(ship_ptr)=numberships; 

put  skip  list ("Would  you  like  to  enter  another  ", 

'ship  (Y/N)?'); 
put  skip  list ('>'); 
get  list(key); 

if  (key*'!')  !(key='y')  then  do; 
ship_ptr»getship( )» 
if  ship_ptr=nil  then 
done*true » 

/♦end  if*/ 
end; 

else 

done*trueJ 
/♦end  if*/ 
end  /*do*/; 
seconds *0; 
minutes*®; 
hours*®; 
wake_ptr*0; 
target*®; 
t  prime*®.®; 
t‘of*0.®; 
t*®.®; 
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link  ship(own)=ship..ptr; 
end  7*do*/; 
else  do; 

friend (ship_ptr ) -t al se » 
if  ptr(own)=nil  then 

link_ship(ship_ptr )=ship_ptr; 

else 

link  ship(ship  ptr)=ptr(ovn ); 

/♦end  i?*/ 
ptr (own)-ship  ptr? 
end  /*if*/J 

/*  the  following  procedure  call  and  the  iterative  loop  get 
available  nodes  from  the  pool,  construct  a  circular  linked 
list  of  four  nodes,  and  assign  the  address  of  the  list  to 
the  ptr  pointer  of  the  ship  node  which  is  being 
constructed*/ 

wake.ptr=getwake( ) ; 
q*wake_ptr» 
do  i*l”to  4» 

p*vake_ptr» 
wake_ptr=getwake ( ) » 

1 ink” wake ( p ) -wake  _  p  t  r » 
end  /*do*/5 

link_wake(wake_ptr)=q; 
ptr (ihip_ptr)=wake.ptr » 
number ( ship.p  tr ) -numberships » 

put  skip  list ('Would  you  like  to  enter  another  ', 

'ship  (T/N)?'); 
put  skip  list ('>'); 
get  list(key); 

if  (key- 'I') ! (key='y ' )  then  do; 
ship_ptr«getship( )» 
if  ship_ptr-nil  then 
done-true ; 

/♦end  if*/ 
end; 

else 

done-true; 

/♦end  if*/ 
end  /*do*/; 
seconds-0; 
minutes-0? 
hours*0; 
wake_ptr*0; 
target-0; 
t  prime*0.0; 
t>f»0.0; 

t-0.0; 
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j-'lv 


iXV 


friend(own)=true; 

known=2;  /*  engaged  ship  no  by  the  sensor  */ 

x_of fset=0 .0? 

yloff set=0.0» 

m*50.0» 

f ourthevc=0 ; 

i-e; 

j*0; 

currentproc*4J 
engaged=false; 
magnif led *f alse» 
f ired=£alse; 
erroron*false» 
key='0' ; 

threshold(0)*i;  threshold(l)=4»  threshold(2)=4; 

vx_own*0.0; 

vy^own  =0.0  i 

▼x_  targe  t'3»0.0; 

▼yltarget*0.0t 
vx_rel*0.0; 
vy~rel*0.0; 
vx~ round =0.0 » 

▼y_ round =0.0J 
vr*0 .0? 
alpha»0.0J 

ax_sum=»0.0;  hx_sum*0.0»  cx.sum=0.0> 

ay_sum*0.0;  by_sum=0.0J  cy_sutn=0.0; 

ax*0.0ihx*0.0»cx=0.0; 

ay=0.0;hy*0.0Jcy=0.0» 

x  at5*0.0Jy  at5=0.0J 

r*0.0» 

dx  dt  at5=0.0»  dy  dt  at5=0.0J  dr  dt  at5=0.0» 
olU)*1.0»  ol (2)=0.5»  ol(3)=0.0;“olU)=-0.5;  ol(5)=-1.0J 
o2(l)*1.0;  o2 (2 )=-0.5?  o2(3)»-1.0;  o2(4)=-0.5;  o2(5)=1.0; 

/♦getship,  when  invoked,  extracts  a  node  from  the  pool  of 
available  and  returns  a  pointer  value  pointing  to  that 
node.  It  puts  an  error  message  if  there  is  no  available 
node*/ 

getshlpjprocedure  returns  (fixed  bin(7)); 

/*  del  */ 

^include  'globals.inp'; 
if  availship»nil  then  do; 

put  skip  list('No  more  available  ship  nodes'); 
return(nil ) ; 
end  /*do*/; 

else  do> 

node«availship; 

availship*link  ship(availship) ; 
end  /*if*/; 
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return(node)  > 
end  getship; 


/*ge twake  does  the  same  function  as  getship  except  for  the 
operations  made  are  on  wake  nodes*/ 
getwakesprocedure  returns  (fixed  bin(?))J 

/*  del  */ 

Xinclude  'globals .inp 

if  availwake*nil  then  doi 

put  skip  list ( 'No  more  available  wake  nodes'); 
return  (0); 
end  /*do*/» 

else  do; 

nodesavailwake; 

avallwake=link  wake(availwake )• 
end  /*if*/J 
return(node) ; 
end  get wakei 

end  initvars; 
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APPENDIX  C 

SIMULATION  SYSTEM  MODULE  PROGRAM  LISTINGS 


A.  TACTICAL. PLI 


/* 

Prog  Name 
Date 

Written  by 
For 

Advisor 
Purpose 
updates 
and  the 


TACTICAL. PLI 
December  S3 
M.  Kadri  Ozyurt 
Thesis 

Professor  Kodres 

This  external  routine  calculates  and 
the  positions  of  the  ships  in  the  tactical  area 
future  positions  of  the  ships  that  belong  to 


enemy  ships  circular  linked  list  pointed  to  by  ptr(ovn), 
and 

and  calculates  the  trajectory  of  the  travelling  projectile 
if  fired 
V 


TACTICAL tPROCEDURE  EXTERNAL? 


/* 

DCL 

*/ 

XINCLUDE  'CONST.  INP'? 
XINCLUDE  'GLOBALS.INP'i 


/♦following  sequence  of  code  updates  the  present  positions 
of  the  ships  in  the  tactical  area*/ 

DO  1-2  TO  NUMBERSHIPS? 

YX  TARGET  »  SPEED (I)  *  SIND  (COURSE(I))? 

YT  TARGET  -  SPEED(I)  *  COSD  (COURSE(I)); 

YX  REL  »  YX  TARGET  -  YX  OWN? 

YY  REL  »  YT’ TARGET  -  YT’OWN? 

WARE  PTR  *  PTR ( I ) ? 
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X  WAKE(WAKE  PTR )  =  X(I)J 
Y~WAKE (WAKE* PTR )  =  1(1); 

XU)  *  X(I)"+  VX  REL  *  dt; 

Y(I)  -  Y(I)  +  VY  REL  *  DT; 

PTR ( I )  =  LINK  WAKE(WAKE  PTR);  /*ptr(i)  points  to*/ 
IE  COUNT (I )  <~4  THEN  '  /*  the  oldest  wake*/ 

COUNT ( I )*COUNT(I )+15 
/♦END  I E*/ 

END  /*DO*/; 


/♦calculating  the  future  positions  (aim  points)  starts 
here  by  using  the  least  squares  method  with  legendre 
polynomials.  The  coefficients  are  pre-calculated  according 
to  the  fifth  second  including  the  zeroth  second*/ 

FILTERING: 

TARGET  *  PTR (OWN); 

done«true; 

IE  ~(TARGET=NIL)  THEN 

done*ealse; 

/♦END  II*/ 

DO  WHILE  (“DONE); 

IP  COUNT (TARGET) =4  THEN 

begin; 

AX  SUM  =  X( TARGET)  *  00;  /*Leg.  poly.  0  deg.*/ 

BX~ SUM  *  X (TARGET)  *  01(5);/*  "  ”  1  ”  */ 

CX'SUM  *  X (TARGET)  *  02(5);/*  "  "  2  ”  */ 

AY' SUM  *  Y (TARGET)  *  00; 

BY" SUM  -  Y( TARGET)  *  01(5)5 

CY'SUM  *  Y (TARGET)  *  02(5)5 

WAKE^PTR  3  PTR (TARGET); 

j  3  i ; 

DO  WHILE  (LINK  WAKE(WAKE  PTR)  PTR (TARGET ) ) ; 

AX  SUM  *  AX  SUM  +  X  WAKE (WAKE  PTR)  *  00 ; 

BX  SUM  »  BX"SUM  +  X  WAKE (WAKE  PTR)  *  01 ( J ) J 

CX~ SUM  *  CX  SUM  +  X  WAKE (WAKE  PTR)  *  02(J); 

AY"SUM  *  AY~ SUM  +  Y“WAKE( WAKE" PTR)  *  005 

by'sum  *  by"sum  +  y'wake(wake'ptr)  *  01(j); 

CY"SUM  »  CY'SUM  +  Y~WAKE( WAKE" PTR)  *  02(J)J 

WAKE  PTR -LINK  WAKE (WAKE  PTR); 

J  3  J  ♦  i; 

END  /*D0*/; 

AX  -  AX  SUM  /  5d 

BX  -  2.0  *  BX  SUM  /  5.5 

CX  3  2.0  *  CX'SUM  /  7.; 

AY  -  AY  SUM  /  5.5 

BY  3  2.0  *  BY  SUM  /  5.; 

CY  3  2.0  *  CY'SUM  /  7.J 


X  AT5  *  AX  -  1.5*BX  +  3.5*CX; 
YAT5  =  AY  -  1.5*BY  *  3.5*CY; 


INCONVSNIANCE: 

/♦this  “begin  “block  is  inserted  to  avoid  the  complications 
which  might  arise  from  the  automatic  conversions’*'/ 

begin; 

DCL  (XSTEP ,YSTEP)  FIXED, 

(XF,YF,HSQD)  FLOAT? 

IF  (ABS (X  AT5 ) >TOP ) ! (ABS ( Y  AT5)>T0P)  THEN 
RSQD=-1.0J 

else  do; 

XSTEP=BINARY ;X  AT5 ) J 
YSTEP*BINARY(Y"AT5) ; 

xf=float(xstep! ; 

YF=FLOAT(YSTEP); 

rsqd=xf*xf+yf*yf; 

END  /♦IF*/; 

IF  (RSQD<0  .0 ) ! (RSQD>MAXSQ  )  THEN 

r»0.0; 

ELSE 

R*SQRT(RSQD); 

/♦END  IF*/ 

end  inconyeniance; 

IF  (R-0.0)  !  (R>RMAX)  THEN  DO; 

X  AIM (TARGET) =0.0; 

y"aim(target}*0.0; 

END  7*DO*/; 

else  do; 

ALPHA  *  ASIN',G*R/VM**2;  /  2.0J/*IN  RADS*/ 
YR  *  YM  *  COS  (ALPHA); 

T  PRIME  »  R  /  YR; 

DX  DT  AT5  =  3.0*CX  -  0.5*BXJ 
DY  DT  AT5  =  3.0*CY  -  0.5*BY5 
DR~DT  AT5  =  (X  AT 5  *  DX  DT  AT5  + 

”  Y  AT5  *“DY"DT  AT5)  /  RJ 
T  OF  *  (R  +  DR  DT~AT5  *  T  PRIME)  /  YRJ 
X  AIM (TARGET)  =  X  AT5  +  DX  DT  AT 5  *  T  OF? 
Y~AIM(TARGET )  =  Y  AT5  +  DY“DT'AT5  *  T  OF; 
END  /*if*7; 

END  /♦IF*/; 

TARGET*LINX  SHIP(TARGET) ;  /*next  target?*/ 

IF  TARGET*PTR (OWN )  THEN 

done-true; 

/♦END  IF*/ 

END  /*DO*/J 


SOUNDTRACK :  ^ 

/♦the  ballistic  calculations  start  here*/ 
IF  (FIRED )  THEN 

begin; 

FI  REL  *  FX  ROUND  -  FXJJWNJ 
FY'REL  *  FY'ROUND  -  FY.OWNJ 
X  GUN  *  X  GUN  +  FX  REL  *  DT; 
Y"GUN  »  Y~GUN  +  FY  REL  *  DT? 

T"=  T  -  dt; 

IF  T<=0  THEN  DO? 

PUT  LIST('~G'); 

FIRED  =  FALSE? 

END  /*IF*/i 
END  /*IF*/; 


END  tactical; 


'  *  "  %  -  ■  ' 


'  ~  %  \T6  W_S 


rev 


ft 


i- 


B.  DISPLAY. PLI 


Name 


/* 

Prog 
Date 

Written  By 
lor 

Advisor 
Purpose 


:  DISPLAY .PLI 
:  December  83 
:  M.  Kadri  Ozyurt 
:  Thesis 

:  Professor  Kodres 

:  This  routine  first  puts  the  time  in 
hours,  minutes,  and  seconds.  The  control  then  proceeds  to 
call  DRAW  subroutine  in  an  iterative  loop  to  erase  the  old 
objects.  It  then  calculates  the  positions  of  the  objects 
relative  to  either  ovnship  or  the  ship  that  has  been 
targeted  according  to  MAGNIFIED .Then  it  calls  DRAW  to 
display  the  objects. 

*/ 


DISPLAY sPROCEDURE  EXTERNAL! 
/♦DCL*/ 


%INCLUDE 

%INCLUDE 


'CONST. INP'; 
'GLOBALS.INP'J 


PUT  LIST ('~T  ~X')J 
IE  MINUTES =0  THEN 

begin; 

PUT  LIST  ("*[*  %')  ; 

PUT  EDIT  (HOURS) (E(2)); 
HOURS  =  HOURS+i; 

IF  H0URS*24  THEN 
HOURS  -  0i 
/♦END  I?*/ 

END  /*IF*/; 

I?  SECONDS *0  THEN 

begin; 

PUT  LIST  ("*[»  ('); 

PUT  EDIT  (MINUTES) (P(2) ); 
MINUTES  *  MlNUTES+i; 

IF  MINUTES=60  THEN 
MINUTES  =  0; 

/♦END  IF*/ 

END  /*IF*/; 

PUT  LIST  ('~[*  +'); 

PUT  EDIT  (SECONDS )(F(2)); 
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/♦ENTER  ALPHA  MODE*/ 


SECONDS  *  SECONDS+IJ 
I?  SECONDS=60  THEN 
SECONDS  =  0; 

/♦END  IF*/ 

PUT  LIST('~M''X''~');  /♦HOME  CURSOR*/ 

/♦the  following  calls  erase  the  objects  from  the  screen*/ 
D*0; 

DO  1*1  TO  NUMEERSHIPSJ 

CALL  DRAW (OBJECT ( I )  .U .OBJECT ( I ) . V , D ) J 

CALL  DRAW ( OBJECT ( I ).UU  WAKE .OBJECT ( I ) .77  WAKE.D); 

CALL  DRAW (OB JECT ( I )  .U  AIM .OBJECT ( I ) .V  AIM.D); 

END  /*DO*/ ; 

CALL  DRAW ( OB JEC T ( 1 ) . U  GUN ,0BJECT(1 ) .7  GUN,D)i 


/♦the  following  sequence  converts  the  coordinates  of  the 
objects  to  the  grid  coordinates  of  the  screen  and  generates 
the  sequences  of  the  coordinates  for  the  objects*/ 

DO  1*1  TO  NUMBERSHIPSi 

XX*A+B I NART ( ( X ( I ) -X  OFFSET )/M); 

TT*B+BINARY( (T(I )-Y" OFFSET )/M) ; 

IF  (FRIEND (I))  THEN 

CALL  GENFRlEND(XX,YY.OBJECT(I) .U.OBJECT(I)  .V ) ; 

ELSE 

CALL  GENFOE(XX. YY .OBJECT ( I ) .U ,OBJECT( I )  .7 ) ; 

/♦END  IF*/ 

CALL  GENWAKE(XX.YY,OBJECT(I).U  WAKE .OBJECT ( I ) .7_WAKE ) 
XX*A+BINARY ( (X  WAKE ( PTR ( I ) )-X  OFFSET )/M) ; 

YY*B+BINARY( (Y_WAKE(PTR(I ) )-Y  OFFSET)/M) ; 

IF  COUNT ( I )=4  THEN 

CALL  GENWAKE(XX,YY, OBJECT ( I ).UU  WAKE, 

OBJECT(I).VV  WAKE); 
XX*A+BINARY((X  AIM(I)-X  OFFSET  )/M)J 
YY*B+BINARY ( ( Y_ AIM ( I ) -Y~OFFSET )/M ) ; 

IF  ~ ( (XX*A )&(YY=B ) )  THEN 
IF  1*1  THEN 

CALL  GENOURAIM(XX,YY,OBJECT(I) .U  AIM, 

0BJECT(I).7  AIM); 

ELSE 

^  CALL  GENAIM(XX ,YY .OBJECT ( I ) .U  AIM, 

0BJECT(I ) .V  AIM); 

/♦END  IF*/ 


/♦END  IF*/ 

END  /*DO*/; 

XX*A+BINARY ( (X  GUN-X  OFFSET )/M); 

YY-B+BINARY ( (Y~GUN-YOFFSET ) /M ) ; 

CALL  GENGUN(XXTyY, OBJECT (1).U  GUN .OBJECT (1 ) .7  GUN); 


/♦the  following  sequence  draws  the  objects  by  calling  the 
routine  DRAW*/ 

d-i» 

DO  1=1  TO  NUMBERSHIPS; 

CALL  DRAW(OBJECT( I ) .U, OBJECT ( I) .7,D) } 

CALL  DRAW (OBJECT (I ) .U  WAKE tOBJECT(I ) . 7  WAKE,D)J 
IE  (ENGAGED)  THEN  CALL  DRAW (OBJECT (I ) .U  AIM, 

OBJECT ( I ) .7  AIM ,D) » 

END  /*DO*/i 

IP  PIRED  THEN  CALL  DRAW (OBJECT (l ) .U_GUN,OBJECT(l ) .7_GUN,D) 

/*  the  following  procedures  produce  the  sequence  of  screen 
grid  coordinates  for  various  objects*/ 

GENFRI END : PROC ( X ,  Y ,  U ,  7 )  ? 


DCL 

(X ,T )  FIXED  BIN ( 15  ) , 

(U ,7) (0 :10)  FIXED  El N (15 ) ? 


U(0)*XJ 
U(l)=X-6; 
U ( 2 ) =X-6 » 

u(3)=x; 

U(4)=X+6J 

U(5)=X+6J 

u(6)=x; 

u(?)=-i; 


7(0) =Y-8 
7(1 )*Y-3 
7(2 )=T+3 
7 (3  )=I+8 
7(4)=Y+3 
7(5) =Y-3 
7(6)»Y-8 
7(7)— 1J 


END  GENFRI ENDt 


GENFOEsPROC (X  ,T ,U  ,7  ) » 


DCL 

(X,Y)  FIXED  BIN ( 15 ) , 

(U  ,7 ) (0  :10)  FIXED  BIN(15)J 


D  ( 0 )  =X  +8  ? 
U(1)«X-8J 

u(2)»x; 

U(3)-X+8» 

U(4)=-i; 


7(0 )*Y-4i 
7(1) =Y-4 i 
7(2)*Y+8> 
7(3 )=Y-4» 
7  (4 )— 1; 


END  genfoe; 


GENWAKEjPROC (X  ,Y ,U ,7 ) ; 


DCL 

(X  ,Y )  FIXED  BIN(15) , 
(U,7)(0:10)  FIXED  BIN. 15); 


U(0)*X; 

u(i)=x; 

u(2)— 1; 

end  genvake; 

GENOURAIMsPROC (X 


7(0)=i; 
7(2)— 1? 


,Y,D,7)J 


DCL  ,  v 

(X»Y )  FIXED  BIN(15)  , 

(U,7) (0:10)  FIXED  EIN(15)J 


U (0)=X+8» 

u(i)*x-a; 
u(2)*x; 
D(3)«x; 
0(4)=x; 
U(5)— 1? 


7 ( 0 ) =Y » 

v(i)*y; 

T(2)-YJ 
7  ( 3 )  =  Y  —8  * 
7 (4)=Y+8J 
7(5)— u 


END  GENOURAIMJ 


GEN AIM :PROC (X  #Y,D,7 ) » 


DCL 

(X,Y)  FIXED  BIN(15) « 

(U ,7 )  (0  :10 )  FIXED  BIN (15) ? 


U(0)*X+4; 

U(1)»X-4J 

u(2)-x; 

U(3)*X+4; 
u(4)*x-4; 
u(5)— i; 


7 (0)*Y+4> 
7(1 )*Y-4» 
7(2)»Y; 

7 (3 )*Y-4> 
7 (4)*Y+4> 
7(5)— i; 


END  genaim; 


GENGUN  :PROC (X ,Y,U ,7) J 
DCL 

(X  ,Y )  FIXED  BIN(15) , 

(U  ,7  )  (0 :10 )  FIXED  1IN'15); 

U(0)=X+li  7{0)=Y-i; 

u(i)*xu;  7(i)*y+i; 

U(2)=X-i;  7(2)=Y+i; 

U(3)=X-i;  7(3)=Y-1» 

U(4)=X+i;  7 (4)=Y-1J 

u(5)*~i;  v(5)=-i; 

END  gengun; 


/♦this  procedure  receives  two  arrays  and  a  key  variable  as 
parameters,  and  either  displays  the  object  or  erases  it*/ 
DRAW :PR0C(U,7,D)  EXTERNAL; 

DCL 

(U,7) (0 :10)  FIXED  3IN(15), 

(I.J.H.D)  FIXED  BI N{ ? ) , 

RUB  CHAR ( 1 )  EXTERNAL, 

C (7 )  CHAR (1 ) , 

Zl(0:3)  CEAR(l)  BASED (P ) , 

Z(0;3)  BIT (8 ) , 

P  pointer; 

P»ADDR(Z);  /*Z  and  Z1  share  same  location  hereon*/ 

I«0; 

DO  WHILE  (I<11); 

IF  (D*l ) 

/♦enter  vector  set  level  white*/ 

THEN  PUT  LIST('~]"[a')? 

/♦enter  vector  set  level  black*/ 

ELSE  PUT  LIST( ~  [' ,RUB) J 
/♦END  IF*/ 

DO  H*1  TO  5; 

IF  (U(I)<0)  THEN  DO? 

PUT  LIST ( [=  '); 

return; 

END  /♦IF*/; 

/♦this  call  translates  the  coordinates  to  the 
stream  of  bitsV 

CALL  TRANSLATE (U( I) ,7(1) ,Z) ; 

I-I+1J 
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/♦this  put  statement  puts  out  the  hit  streams 
as  being  characters*/ 

POT  EDIT ( ( Z1 ' J)  DO  J=0  TO  3))  (4A(1))J 
END  /*DO*/J 

/*the  following  two  statements  get  the  status  of 
the  screen.  The  status  is  not  sent  hack  until  the 
screen  is  ready.*/ 

PUT  LIST('~[  E')?  /*HANDSHAKE*/ 

GET  EDIT ( (C ( J )  DO  J=1  TO  7))(7A(1))J 
END  /*DO*/» 

POT  LIST('~M~X');  /*BACK  TO  ALPHA*/ 

TRANSLATE:PROCEDURE(X,Y ,Z)  ; 

DECLARE  (X ,Y )  FIXED  BIN(15), 

Z(0:3)  BIT (8) , 

T  FIXED  BIN (15) , 

SI  BIT  (16) , 

SS  BIT (7 ) , 

S  BIT  (8), 

I  FIXED  BIN(7)J 
I  =  DIVIDE (Y ,32,8 ) J 
SS=BIT(I,7)J 
S«'0'B  ii  ss; 

Z(0)  *  '00100000 'B  !  S> 

T  *  Y  -  (Y/32)  *  325 
SI  »  BIT  (T,16)J 
S  *  SUBSTR(S1 .8  ,8  ) » 

z(i)  *  '01100000 'b  i  s; 

I  *  DIVIDE  (X.32,8)? 

SS*BIT ( I «7) ; 

s*'0'b  !!  ss; 

Z(2)  *  '00100000 'B  !  s; 

T  =  X  -  (X/32)  *  32? 

SI  »  BIT(T ,16) ? 

S  *  SOBSTR  (SI ,8 ,8)J 
Z(3)  *  '01000000 'B  1  s; 

END  translate; 

END  DRAV? 


END  display; 


V.V.VVvy.vyy;.'  -  *  '•  vr.  '‘•‘■y* 


C.  STATUS. PLI 


/* 

Prog 
Date 
Written 
Por 

Advisor 

Purpose 


Name 


by 


STATUS. PLI 
December  83 
M.  Kadri  Ozyurt 
Thesis 

Professor  Kodres 

this  routine  calls  the  assembly  routine 
KEYBOARD  to  read  the  keyboard  to  set  the  boolean  variables 
used  in  other  routines 

*/ 


STATUS :PROCEDURE  EXTERNAL? 


*/ 


DC  L 


%  INCLUDE  'CONST.  INP'J 
^INCLUDE  'GLOBALS. INP' » 


CALL  KEYBOARD(KET); 

IE  (KEY='Q ' ) ! (KEY='q ' )  THEN 
STOP? 

ELSE  IP  (KEY='E') !(KEY='e')  THEN 
ENGAGED  -  TRUE; 

ELSE  IP  ENGAGED  &  (( RANK (KEY )>48  )& (RANK (KEY ) <=57 ) ) 
THEN  BEGIN? 

I»RANK(KET)-48; 

IP  NUMBER ( I )*0  THEN 

LINK  SHIP(I)*I; 

ELSE  IP  FRIEND(I)  THEN  DO? 

CALL  REMOPENODE(LINK  SHIP (OWN ) ,1 ) J 
CALL  ADDNODE(PTR(OWNl,I); 
priend(I)=palse; 
end; 

PTR (OWN )  *  I? 

end; 

ELSE  IP  (KEY*'R')  !  (KEY='r ' )  THEN 

engaged-false; 

ELSE  IP  (KEY-'M')  !(KEY  =  'm')  THEN  DO? 
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/♦set  the  scale  to  1/200*/ 
magnified=true; 
m=200.0; 

IF  ENGAGED  THEN  D0J 

/♦set  reference  as  the  target*/ 

X  0FFSET=X (PTR (OWN  ) ) » 

y~offset=y(ptr(own)); 

END  /*DO*/j 

ELSE  do; 

/♦ovnship  is  the  reference*/ 

X  OFFSET=0 ,0> 

Y**OFFSET=0  .0 > 

END  /*DO*/J 
/*END  IF*/ 

end; 

ELSE  IF  (KEY='T ') !  (KEY='t ' )  THEN  DOJ 
/♦set  the  scale  hack  to  normal  (1/50)*/ 

magnified=false; 

M=50.0J 
X  OFFSET=0 .0 » 

Y"OFFSET=0.0; 

END  /*DO*/;‘ 

ELSE  IF  (KEY='F')J (KEY='f ')  THEN 
FIRED  »  TRUE; 

ELSE  IF  (KEY='D') !(KEY='d')  THEN 

erroron=true; 

ELSE  IF  (KEY*'S')!(KEY='s')  THEN 
SIGNAL  ERROR(l); 

/*END  IF*/ 

KEY*'0'; 


/♦this  routine  removes  the  node  pointed  by  QQ  from  the 
circular  linked  linked  list  pointed  by  PP*/ 

REMOYENODE : PROC ( PP  f  QQ ) ; 

DCL 

(PP.QQ)  FIXED  BIN{7); 

^INCLUDE 'GLOBALS . INP ' ; 

p»pp; 

P-LINI  SHIP(P); 

DO  WHILE  ( "(LINK  SHIP(P)=QQ) ) ; 

P*LINK  SHIP(P); 

end; 

LINK  SHIP (P )*LINK  SHIP(QQ); 

end; 


/♦this  routine  adds  a  node  pointed  by  QQ  to  the  circular 
linked  list  by  PP*/ 

ADDNODE : PROC ( PP , QQ ) J 


T 


‘53 


a 


I 

I 

a 


a 


(PP#QQ)  FIXED  EIN(7); 

%include'globals  . :np'  ; 

p*pp; 

P-LINK  SHIP(P); 

DO  WHILE  ("(LINK  SHIP(P)-PP) ) * 
P*LINK  SHIP (P ) * 

end; 

LINK  SHIP(P)*OQ; 
LINK'SHIP(QQ)*PP; 

end; 

end  status; 


D.  IDLE.PLI 


/* 

Prog  Name  :  IDLE.PLI 

Date  :  December  83 

Written  by  :  M.  Kadri  Ozyurt 

Eor  :  Thesis 

Advisor  :  Professor  Kodres 

Purpose  :  This  routine  reads  the  A/D  converter 

output  to  get  the  velocity  vectors  of  ownship  and  a 
selected  ship,  and  the  gun  information  as  azimuth  and 
elevation.  It  then  converts  this  information  to  real  world 
values.  It  calculates  ownship  speed  which  will  be  used  to 
find  relative  speeds  later.  It  then  computes  the  maximum 
range,  cartesian  coordinates  of  the  splash  point,  and  time 
of  flight  corresponding  to  the  current  gun  position 
*/ 


IDLE: PROCEDURE  EXTERNAL; 


/* 

DCL 

V 

^INCLUDE  'CONST. INP'J 
^INCLUDE  'GLOBALS.INP'J 

DO  D*0  TO  5; 

CALL  ATOD  (D.ARG(D) ) ; 

END  /*DO*/J 

/*at  this  point  the  A/D  output  values  are  fixed  bin(7) 
values.  The  following  sequence  converts  those  to  fixed 
decimal  values*/ 

COURSE(OWN)»ARG(0)J 
SPEED (OWN )*ARG(4) » 

COURSE ( KNOWN ) -ARC (2) J 
SPEED ( KNOWN  )«ARG( 3),* 

AZ-ARG(l); 

ALT»ARG(5); 

/*the  following  sequence  converts  A/D  values  to  real  time 
values  by  using  appropriate  proportionality  constants*/ 
COURSE (OWN)  *  COURSE (OWN)  *  K; 
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COURSE (KNOWN )  =  COURSE (KNOWN )  *  KJ 
AZ  =  AZ  *  k; 

IE  COURSE (OWN) <0.0  THEN 

COURSE (OWN)  =  COURSE, OWN)  +  TWO  FI  J 
IF  COURSE (KNOWN )<0 .0  THEN 

COURSE (KNOWN )  =  COURSE(KNOWN )  +  TWO  PI  J 
IF  AZ<0.0  THEN 

AZ  =  AZ  +  TWO  pi; 

IF  ALT>90 .0  THEN" 

ALT  =  90.0J 

SPEED (OWN)  =  SPEED(OWN)/L; 

SPEED (KNOWN )  =  SPEED  KNOWN)  /  LJ 

/♦ownship  speed  computations*/ 

VI  OWN  *  SPEED(OWN)  *  SIND (COURSE  (OWN  ) ) ; 

VTlOWN  =  SPEED (OWN )  *  COSD(COURSE(OWN) ) ; 

/*vhen  not  have  fired,  the  following  makes  the  ballistic 
computations*/ 

IF  ”  FIRED  THEN 

begin; 

T  OF  -  2.0  *  VM  *  SIND (ALT )  /  GJ 
VR  »  VM  *  COSD(ALT); 

R  »  VR  *  T  of; 

X  AIM (OWN )  =  R  *  SIND(AZ); 

T'AIM(OWN)  *  R  *  COSD(AZ); 

X~GUN  *  0.0; 

I~GUN  -  0.0J 

VX  ROUND  *  VR  *  SIND(AZ); 

VY' ROUND  -  VR  *  COSD(AZ); 

T  =  T  of; 

END  /*IF*?; 

END  idle; 
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»••••*  v* 


APPENDIX  D 

REAL  TIME  EXECUTIVE  MODULE  LISTINGS 


A.  ARBITER. A86 

JProg  Name  :  ARBITER  .A86 

{Date  :  December  83 

{Written  by  :  M.  Kadri  Ozyurt 

{For  :  Thesis 

{Advisor  :  Professor  Kodres 

{Purpose  :  This  program  contains  all  the  assembly 

{routines  used  by  the  simulation  system.  It  initializes  all 
{programmable  hardware  components,  responds  to  the  timing 
{interrupts,  and  increment  the  FOURTHEVC  used  throughout  the 
{simulation  model  program.  Upon  receiving  interrupt 
{requests  ,  it  performs  process  switching  by  storing  the 
{state  of  Interrupted  process  in  the  stack  area  allocated 
{for  the  processes  and  by  restoring  the  highest  ready 
{process  given  by  SCHEDULER 


{GLOBALS 

DGROUP  GROUP  FOURTHEVC , CURRENT PRO C 

FOURTHEVC  DSEG  COMMON 

FOURTHEVC 1  DV  0 

CURRENTPROC  DSEG  COMMON 

CURRENTPROC1  DB  4 

CSEG 

EXTRN  SCHEDULE: FAR 
EXTRN  PI:  FAR 
EXTRN  P2:FAR 
EXTRN  P3 : FAR 
EXTRN  P4:FAR 
PUBLIC  ARBITER 
PUBLIC  STORESTATUS 
PUBLIC  RINGBELL 
PUBLIC  XETBOARD 
PUBLIC  ATOD 
PUBLIC  SUSPEND 
PUBLIC  RESUME 
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J EQUATES 


INTI 

EQU 

84H 

J INTR1  JUMP  ADDR. 

INT3 

EQU 

8CH 

J INTR3  JUMP  ADDRESS 

PIC1 

EQU 

0C0H 

?PIC  COMMAND  OUTPUT  PORT1 

PIC2 

EQU 

0C2H 

5PIC  COMMAND  OUTPUT  P0RT2 

ICW1 

EQU 

13E 

5PIC  COMMAND  VORD1 

ICW2 

EQU 

20H 

JPIC  COMMAND  W0RD2 

ICV4 

EQU 

0DH 

5PIC  COMMAND  WORD4 

MASK1 

EQU 

0FDH 

JPIC  MASK  BITE 

SOI 

EQU 

20H 

JEND-OF-INTERRUPT  BITE 

CNTR1 

EQU 

50  H 

J PIT  MODE  CONTROL  BYTE 

CNTR2 

EQU 

60E 

*•  M  *t  «« 

t 

PORTC 

EQU 

0D6H 

JPIT  CONTROL  PORT 

COUNT 

EQU 

0D2H 

JPIT  COUNT  #  OUTPUT  PORT 

CNTRLO 

EQU 

00H 

JPIT  COUNT  #  LO  BYTE 

CNTRHI 

EQU 

96H 

JPIT  COUNT  #  HI  BYTE 

READWR 

EQU 

37H 

RXRDY 

EQU 

02H 

JUSART  STATUS  MASK(READ) 

TXRDY 

EQU 

01H 

JUSART  STATUS  MASK(WRITE) 

PORTIO 

EQU 

0D8H 

JUSART  I/O  PORT 

PORTST 

EQU 

0DAH 

JUSART  STATUS  PORT 

SEGCONV 

EQU 

0D000H 

JA/D  CONYTR  PORT  SEGMENT 

OFFCON? 

EQU 

0F700H 

JA/D  CONVTR  PORT  OFFSET 

STACKS IZE  EQU 

100H 

LF 

EQU 

0AH 

CR 

EQU 

0DH 

BEL 

EQU 

07  H 

FS 

EQU 

1CH 

ESC 

EQU 

1BH 

FF 

EQU 

0CH 

CAN 

EQU 

18H 

FALSE 

EQU 

0 

TRUE 

• 

I 

EQU 

NOT  FALSE 

• 

ARBITER: 

PUSH 

DS 

CLI 

JDISABLE  INTR'S 

MO? 

AX  *0 

MO? 

DS  t  AX 

J  SET  SEGREG  TO  0 

MO? 

BX.INT1 

MO? 

WORD  PTR  [BX] .OFFSET 

PROC0  J INTI  JMP  ADDRESS 

INC 

BX 

INC 

BX 

MO? 

WORD  PTR  [BX] ,CS 

POP 

DS 

MO? 

BX, OFFSET  ST ACKTBL+S TACK SIZE-2 

MO? 

CS:  [BX]  ,CS 

ADD 

BX .STACKS IZE 
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■  V  v\‘- 


PHOC0: 


MOV  CS:[BX],CS 

ADD  BX , STACKSIZE 

MOV  CS:[BX],CS 

ADD  BX, STACKSIZE 

MOV  CS : [BX] ,CS 

CLI 

MOV  AL , ICW1 

OUT  PICl.AL 

MOV  AL.ICW2 

OUT  PIC2,AL 

MOV  AL.ICV4 

OUT  PIC2.AL 

STI 

MOV  AL.MASK1 

OUT  PIC2.AL  JONLY 

MOV  AL.CNTRl 

OUT  PORTC ,AL 

MOV  AL.CNTRLO 

OUT  COUNT ,AL 

MOV  AL.CNTR2 

OUT  PORTC ,AL 

MOV  AL, CNTRHI 

OUT  COUNT ,AL 

MOV  AL.READWR 

OUT  PORTST.AL 


; IN  IT .  PIC  TO 
;  EDGE-TRIG.,  SINGLE  PIC 

J  INTI  ADDR  IS  04R 

;  NOT  F.  NESTED,  NORM.  EOI 


INTI  IS  ALLOWED 
; INIT .  PIT 

J SELECT  MODE  0  ,CNTR  1 
;  CLK  FREQ.  IS  153.6  KHZ 
,* COUNT-DOWN  VALUE  9600H 
J  WHICH  GIVES  AN  INTR  AT 


;  EVERY  FORTH  OF  A  SEC. 


MOV  AX.CS 

MOV  SS ,AX 


JSET  STACK  SEG.  TO  CODE 


MOV 

BP,3*STACKSIZE 

MOV 

SP.STACKTBL  [BP] 

JMP 

P4 

PUSH 

AX 

PUSH 

BX 

PUSH 

CX 

MOV 

AL,CNTR2 

OUT 

PORTC ,AL 

PRESET  COUNTER 

MOV 

AL, CNTRHI 

JRESET  THE  CNTR . 

OUT 

COUNT, AL 

MOV 

AL , EO I 

JRESET  PIC 

OUT 

PICl.AL 

ADD 

SP  ,6 

;SP-> INTERRUPTED 

ip 

POP 

BX 

?BX-> 

ip 

POP 

AX 

;ax-> 

cs 

POP 

CX 

» SP->INTERRUPTED 

IP 

PUSH 

AX 

JPUSH 

cs 

PUSH 

BX 

jpush 

IP 

PUSH 

CX 

SUB 

POP 

POP 

POP 

INC 

JMP 

STORESTATUS : 

DEC 

DEC 

PUSH 

ADD 

POP 

PUSH 


SP ,  6 
CX 
BX 
AX 

EOURTHEVC1 

STORESTATUS1 

SP 

SP 

AX 

SP ,  4 

AX 

CS 


;SP-> PUSHED  CX 

{RESTORE  BX 
{RESTORE  AX 


{AX-> INTERRUPTED  IP 


PUSH 

DEC 

DEC 

POP 

PUSHF 

CLI 

STORESTATUS1 ! 

PUSH  AX 

PUSH  BP 

CALL 

MOV 

MOV 

CMP 

JNZ 

MOV 

JMP 

OUT1 :  CMP 

JNZ 
MOV 
JMP 

OUT 2:  CMP 

JNZ 
MOV 
JMP 

OUT 3:  CMP 

JNZ 
MOV 
JMP 

0UT4:  ADD 

CMP 
JNA 
DEC 
MOV 
JMP 

OUTS:  ADD 

MOV 


AX 

SP 

SP 

AX 


I  PUSH  BX  !  PUSH  CX 

I  PUSH  SI  !  PUSH  DI 

SCHEDULE 

NEWPROC ,  AL 

AL.CURRENTPROC1 

AL  ,1 

OUT1 

BP ,  1 

OUT  4 

AL  ,2 

0UT2 

BP .STACK SI ZE+1 

0UT4 

AL  ,3 

0UT3 

BP  ,2*STACKSI ZE+1 
0UT4 
AL  ,4 
OUT  5 

BP ,3*STACKSIZE+1 
OUT  4 

BP, OFFSET  STACKTBL 
SP ,  BP 
0UT6 
BP 

[BP]  ,SP 
LOADPROC 
AL  ,30H 
0UT5AL , AL 


.{RESTORE  AX 


PUSH  DX 
PUSH  ES 


MOV  DX, OFFSET  OUT5MESS 

JMP  ERRORMESS 
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OUT  6 


LOADPROC : 

LOUT1: 

L0UT2: 

L0UT3: 

LOUT4: 

RETURNPT : 


ADD  AL ,30H 

MOV  0UT6AL, AL 

MOV  DX, OFFSET  0UT5MESS 

JMP  ERRORMESS 

MOV  AL,NE¥PROC 

CMP  AL.l 

JNZ  LOUT1 

MOV  BP  ,0 

JMP  RETURNPT 

CMP  AL.2 

JNZ  L0UT2 

MOV  BP.STACKSIZE 

JMP  RETURNPT 

CMP  AL,3 

JNZ  L0UT3 

MOV  BP,2*STACKSIZE 

JMP  RETURNPT 

CMP  AL ,4 

JNZ  LOUT4 

MOV  BP,3*STACKSIZE 

JMP  RETURNPT 

ADD  AL.30H 

MOV  LOUT4AL ,AL 

MOV  DX .OFFSET  L0UT4MESS 

JMP  ERRORMESS 

MOV  CURRENTPROC1 , AL 

MOV  SP.STACKTBL  [BP] 

POP  ES  t  POP  DI  1  POP  SI  !  POP  BP 

POP  DX  !  FOP  CX  !  POP  BX  !  POP  AX 

POPF 

STI 

RETF 


JTHIS  ROUTINE  MAKES  a  STSYTEM  CALL  TO  PUT  OUT  ERROR 

; MESSAGES 

ERRORMESS: 


MOV 

CL, 9 

I  NT 

224 

MOV 

CL,0 

MOV 

DL.l 

I  NT 

224 

RET 
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;the  stack  areas  and  variable  definitions 


STACKTBL: 


DW 

OFFSET  STACKTBL+STACKS IZE-22 

RS 

STACKSIZE-8 

DW 

FALSE 

DW 

OFFSET  PI 

RS 

2 

DW 

OFFSET  ST ACKTBL+2*STACKSI ZE-22 

RS 

STACKSIZE-8 

DW 

FALSE 

DW 

OFFSET  P2 

RS 

2 

DW 

OFFSET  STACKTBL+3*STACKS IZE-22 

RS 

STACKSIZE-8 

DW 

FALSE 

DW 

OFFSET  P3 

RS 

2 

DW 

OFFSET  STACKTBL+4*STACKSIZE-22 

RS 

STACKSIZE-8 

DW 

FALSE 

DW 

OFFSET  P4 

RS 

2 

NEWPROC 

DB 

0 

0UT5MESS 

DB 

FS ,ESC ,FF  , CAN 

DB 

'RETURN  FROM  0UT5.  AN  UNKNOWN  CURRENT 

PROCEDURE 

0UT5AL 

DB 

0.'$'.0 

0UT6MESS 

DB 

FS • ESC, FF, CAN 

DB 

'RETURN  FROM  0UT6.  STACK  OVERFLOW  FOR 

THE  PROC. 

0UT6AL 

DB 

0,'$',0 

L0UT4MESS 

DB 

FS,ESC,FF,CAN 

DB 

'RETURN  FROM  L0UT4 .  AN  UNKNOWN  NEW  PROCEDURE:' 

LOUT4AL 

DB 

0,'$',0 

B.  AWAIT. PLI 


/* 

Prog  Name  :  AWAIT. PLI 

Date  :  December  83 

Written  by  :  M.  Kadri  Ozyurt 

For  s  Thesis 

Advisor  :  Professor  Kodres 

Purpose  :  This  synchronization  primitive  checks 

the  threshold  value  for  the  calling  process  by  comparing 
the  corresponding  threshold  value  with  FOURTHEVC  and 
returns  the  control  either  to  the  calling  process,  if  its 
threshold  value  is  equal  to  and  greater  than  FOURTHEVC,  or 
else  transfers  the  control  to  ARBITER. A86 
*/ 


await:  procedure( i) J 

del  threshold(0:2)  fixed  bin(15)  external, 

storestatus  entry, 
fourtbevc  fixed  bin(15)  external  , 
i  fixed  bin(?)i 

if  (fourthevc>*threshold(i-l) )  then  return; 

else  call  storestatus? 
end  await; 


C.  SCHEDULE. PLI 


/* 

Frog  Name  :  SCHEDULE. FLI 

Date  :  December  82 

Written  by  :  M.  Kadri  Ozyurt 

For  :  Thesis 

Advisor  :  Professor  Kodres 

Purpose  :  This  synchronization  primitive 

compares  the  threshold  values  corresponding  to  the 

processes  PI  through  P3,  beginning  from  PI,  to  FOURTHEVC 

and  returns  the  name  of  the  first  one  which  is  equal  to  or 

greater  than  that  value.  If  non  of  the  processes  meet  this 

conditions  then  P4  is  returned. 

*/ 


schedule:  procedure  returns  (fixed  bin(?))i 
del  threshold(0:2)  fixed  bin(15)  external, 
fourthevc  fixed  bin(15)  external, 
i  fixed  bln(7); 
do  i=0  to  2» 

if  (f ourthevc>=threshold( i) )  then  return  (i+l); 

end; 

return  (4); 
end  schedule; 


D.  THRESH .PLI 


/* 

Prog  Name 
Hate 

Written  by 


THRESH. PLI 
December  83 
M.  Kadri  Ozyurt 


For  s  Thesis 

Advisor  s  Professor  Kodres 

Purpose  :  This  synchronization  primitive 

receives  a  pointer  to  the  calling  process  and  increments 
the  corresponding  threshold  value  by  an  assigned  amount 
*/ 


THRESH:  PROC(l); 

DCL  THRESHOLD (0:2) FIX ED  BIN(15)  EXTERNAL, 
i  FIXED  BIN (7); 

IF  (1*1)  THEN  THRESHOLD (0)=THRESHOLD (0 )  +  1} 
IF  (i»2)  THEN  THRESHOLD(l)  THRESHOLD  (1)  +  4? 
IF  (i=3)  THEN  THRESHOLD(2)*THRESHOLD(2)+4; 

return; 
end  thresh; 


E.  Pl.PLI 


/* 

Prog  Name  :  Pl.PLI 

Date  :  December  83 

Written  by  :  M.  Kadri  Ozyurt 

For  :  Thesis 

Advisor  :  Professor  Kodres 

Purpose  :  This  process  is  basically  an 

infinitive  loop.  Once  entered,  it  first  call  AWAIT. PLI 

to  see  if  FOURTHEYC  is  equal  to  or  greater  than  its 

threshold  value.  If  it  is,  then  the  control  proceeds  to 

call  TACTICAL. PLI.  The  last  call  in  the  loop  is  to 

THRESH. PLI  to  increment  its  threshold  value.  In  the  next 

iteration,  the  control  will  not  come  back  since  its 

threshold  value  is  greater  than  JORTHEVC. 

*/ 


PI:  procedure; 

DCL  AWAIT  ENTRY  (FIXED  EIN(7)), 
THRESH  ENTRY  (FIXED  BIN<7)), 
A  FIXED  BIN (7 ) , 

TACTICAL  ENTRY*, 

a-i; 

DO  WHILE  ('l'B); 

CALL  AWAIT  (1); 

CALL  tactical; 

CALL  THRESH  (1); 

END  /*DO*/; 

END  pi; 


F.  P2.PLI 


/* 

Pro* 
Bate 
Written 
For 

Advisor 
Purpose 
cal  to 
call  is 
*/ 


Name  :  P2.PLI 

:  December  83 

by  :  M.  Kadri  Ozyurt 

:  Thesis 

:  Professor  Kodres 
:  The  purpose  of  this  process  is 
that  of  Pl.PLI  vith  the  exception  that  the 
to  DISPLAY. PLI 


P2:  procedure; 


DCL  AWAIT  ENTRY  (FIXED  BIN(?)) 
THRESH  ENTRY  (PIXED  BIN(7) 
A  FIXED  BIN (7), 

DISPLAY  ENTRY? 


J. 


a*2; 

DO  WHILE  ('l'B)J 

CALX  AWAIT  (2); 
CALL  display; 
CALL  THRESH  (2); 
END  /*DOV5 
END  P2; 


idecti- 

second 


86 


<}.  P3.PLI 


/* 

Prog  Name 
Cate 

Written  by 
For 

Advisor 

Purpose 

same  as  Pl.PLI  v 
to  STATUS. PLI 
*/ 


:  P3.PLI 
:  December  83 
:  M.  Xadri  Ozyurt 
:  Thesis 

:  Professor  Kodres 

:  The  purpose  of  this  process  is  the 
ith  the  exception  that  the  second  call 


P3:  procedure; 

DCL  AWAIT  ENTRY  (FIXED  BIN(7)), 
THRESH  ENTRY  (FIXED  BIN(?)), 
A  FIXED  BIN (7) , 

STATUS  ENTRY. 


a-3; 

DO  WHILE  ('l'B)J 

CALL  AWAIT  (3) ? 
CALL  status; 

CALL  THRESH  (3); 
END  /*DO*/; 

END  F3; 


is 


,  «r  r.  ' 


H.  P4.FLI 


/* 


Prog  Name 
Date 

Written  by 
For 


P4.PLI 
December  83 
M.  Kadri  02yurt 
Thesis 


Advisor 
Purpose 
in  which 
until  an 
*/ 


:  Professor  Kodres 

:  This  process  is  an  infinitive  loop 
there  is  only  one  call  to  IDLE.PLI  repeaditively 
interrupt  comes  along. 


F4:  PROCEDURE; 

DCL  AWAIT  ENTRY  (FIXED  BIN(?)), 
THRESH  ENTRY  (FIXED  BINv?)), 
A  FIXED  BIN (7), 

IDLE  entry; 


a*4; 

DO  WHILE  ('l'B)J 

CALL  idle; 
end  /*do*/; 

END  P4; 
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APPENDIX  E 


MISCELLANEOUS  ASSEMBLY  ROUTINES 


A.  KEYBOARD. A86 

{Prog  Name  :  KEYBOARD. A86 

{Date  :  December  83 

{Written  by  :  M.  Kadri  Ozyurt 

JFor  :  Thesis 

{Advisor  :  Professor  Kodres 

{Purpose  s  This  program  receives  a  formal 

{parameter,  KEY,  reads  the  status  of  the  serial  I/O 

{interface  chip.  If  a  character  has  been  received  from  the 

{keyboard,  it  reads  this  character  and  places  it  to  the 

{formal  parameter.  If  there  is  not  a  character  available 

{it  puts  a  ascii  equivalent  of  zero  into  the  parameter. 

{The  reason  for  that  is  that  zero  is  not  used  as  a  keyboard 

{command.  The  variables  used  here  are  defined  in  the  body 

{Of  ARBITER. A86 


KEYBOARD: 

PUS  HI 
CLI 


PUSH 

AX 

IN 

AL,PORTST 

CMP 

AL.RXRDY 

JZ 

KEYBOARD1 

IN 

AL,PORTIO 

AND 

AL,7TH 

JMP 

KEYB0ARD2 

KEYBOARD 1: 

MOT 

AL ,30H 

KEYB0ARD2 : 

MOT 

BX , [BX] 

MOT 

[BX]  ,AL 

POP 

AX 

POPE 

RET 


B.  AT0D.A86 


JProg  Name 
JDate 

jWritten  by 
J  For 

JAdvisor 
; Purpose 


:  AT0D.A86 
:  December  83 
:  M.  Kadri  Ozyurt 
s  Thesis 

:  Professor  Kodres 

:  This  program  receives  two  parameters 


»It  reads  the  output  of  the  A/D  converter  specified  by  the 
;second  parameter  and  places  it  into  the  first  parameter. 
JThe  variables  used  here  are  defined  in  ARBITER. A86 


ATOD: 


PUSH? 

CLI 

PUSH 

PUSH 

PUSH 

PUSH 

PUSH 

MO? 

MO? 

MO? 

MO? 

MO? 

MO? 

MO? 

MO? 

POP 

POP 

MO? 

MO? 

POP 

POP 

POP 

POPP 

RET 


SI 

AX 

BX 

BX 

DS 

BX ,  [BX] 

AH  ,0 
AL,  [BX] 

SI,  AX 

AX.SEGCON? 

DS.AX 

BX,OFFCON? 

AL ,  [BX+SI] 

DS 

BX 

BX,2[BX] 
[BX] 

BX 
AX 
SI 


;bx=.argument(i) 


t READ  A/D  PORT 


C.  RINGBELL.A86 


JProg  Name  : 
JD^te  : 
JWritten  by  : 
JFor  : 
JAdvisor  : 
JPurpose  : 
Jthe  video  terminal. 


RING BELL. A86 
December  83 
M.  Kadri  Ozyurt 
Thesis 

Professor  Kodres 

This  program  sends  a  bell  character  to 
The  variables  used  here  are  defined  in 


Jthe  tody  of  ARBITER. A86. 


RINGBELL: 


PUSHF 

CLI 

PUSH 

AI 

CALL 

WAIT 

MOV 

AL.BEL 

OUT 

PORTIO, AL 

POP 

AX 

POPF 

RET 

D.  WAIT  .A86 


•  Prog  Name 
JDate 


WAIT . A86 
December  83 


•Written  by 
•  For 

•Advisor 


M.  Kadri  Ozyurt 
Thesis 

Professor  Kodres 


•Purpose  :  This  program  program  reads  the  status 

•of  the  serial  I/O  chip  and  waits  until  the  transmitter  is 
•ready  to  send  characters. 


WAIT: 

PUSH  AX 

WAITl:  IN  AL.0DEH  ?GET  STATUS 


E. SUSPEND. A86 


JProg  Name  :  SUSPEND. A86 

JDate  :  December  83 

JWritten  by  :  M.  Kadri  Ozyurt 

»For  :  Thesis 

JAdvisor  :  Professor  Kodres 

JPurpose  :  This  program  stops  the  real  time  clock 

»by  reseting  the  interrupt  bit  of  the  PS'd. 


SUSPEND: 

CLI 

RET 
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AD-A142  130 


UNCLASSIFIED 


REAL-TIME  APPLICATIONS  IN  MULTIPROCESSOR  SVSTEMS(U) 
NAVAL  POSTGRADUATE  SCHOOL  MONTEREV  Cfl  MK  OZVURT 
DEC  83 


F.  RESUME. A86 


»Prog  Name 
JDate 


RESUME. A86 
December  83 


JWritten  by 
;  For 

JAdvisor 


M.  Xadri  Ozyurt 
Thesis 

Professor  Kodres 


JPurpose  :  This  program  starts  the  real  time  clock 

; hy  reseting  the  interrupt  bit  of  the  PSW.  It  then  reset 
Jthe  counter  to  zero. 


t 


RESUME : 


PUSH 

AX 

MOV 

AL ,CNTR2 

OUT 

portc.al 

MOV 

al.cntrhi 

OUT 

COUNT tAL 

MOV 

AL.EOI 

OUT 

PICl.AL 

POP 

AX 

STI 

RET 

;reset  counter 


» RESET  PIC 


APPENDIX  F 

DYNAMIC  DEBUGGING  MODULE  LISTINGS 


A.  LOCALS  AID 


/* 

Prog  Name 
Date 

Written  by 
For 

Advisor 
Purpose 
tlons  of  the 
*/ 


:  LOCALS. AID 
s  December  83 
:  M.  Kadri  Ozyurt 
:  Thesis 

:  Professor  Kodres 

:  This  Xinclude  file  contains  the  declara- 
variables  used  by  the  dynamic  debugging  module 


DCL 

BREAKS (0:9)  LABEL, 

STOPS (0:9)  BIT ( 1 )  EXTERNAL, 

(CODE1 ,C0DE2, VALUE, H)  FIXED  BIN(15), 

BREAKPT  FIXED  BIN (15)  EXTERNAL, 

PUTVARS  ENTRY, 

REENTRY  ENTRY, 

BREAKPTS  ENTRY, 

PROMPTUSER  ENTRY  (FIXED  BIN(7)), 

STORESTATUS  ENTRY, 

TACTICAL  ENTRY, 

DISPLAY  ENTRY, 

IDLE  ENTRY, 

STATUS  ENTRY, 

CHANGEVA  ENTRY  (FIXED  BIN • 15 ), FIXED  BIN(15))J 
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B.  ERRHAND  .AID 


/* 

Prog  Naire  :  ERRHAND.  AID 

Date  :  December  83 

Written  by  :  M.  Kadri  02yurt 

Por  :  Thesis 

Advisor  :  Professor  Kodres 

Purpose  :  This  %include  file  contains  six 

different  types  of. PL/I  ON  condtion  bodies.  Upon 

intercepting  any  raised  error  condition  is  displayed 

and  the  control  is  transfered  to  PROMPTUSER  with  a  number 

that  shows  which  breakpoint  has  been  past.  Then  the  ON 

condition  body  is  exited  with  a  non-local  goto  statement. 

At  the  exit  point  the  control  is  transfered  to  REENTRY 
which  is  the  dynamic  debugging  tool.  This  call  to  REENTRY 
is  protected  during  the  course  of  normal  operation  with  an 
if  statement  which  tests  the  value  of  ERRORON. 

*/ 


$tops(0)*falset 
stops(l )«false» 
stops(2)-falseJ 
stops(3)«falseJ 
stops(4)*falseJ 
stops(5)«falsei 
stops(6)«false; 
stops(7)=false» 
stops(8)»false; 
stops(9)»falseI 
on  error 
begin; 

put  list('~Z');  /*clear  screen1*/ 

put  skip  list( 'Error  #'); 

/♦this  statement  gets  the  code  of  the  error  condition*/ 
codel*oncode( ) » 

/♦this  call  prompts  the  user  with  the  #  of  breakpoints  past 
and  asks  if  the  user  wants  to  enter  the  dynamic  debugging 
environment*/ 

call  promptuser(codel )» 

if  (key«'y')  !  (key*'Y')  then  goto  errorexit; 
else  if  codel<»127  then  do; 

put  skip  list('The  program  will  be  abandoned'); 
stop; 

end  /*if*/; 


end  /*error*/J 


on  fixedoverf low 
begin; 

put  list('~Z')J 

put  skip  list ( 'Pixedoverf low  #'); 

codel*oncode( ) » 

call  promptuser (codel ) ; 

if  (key*'y')  !  (key»'T')  then  goto  errorexit; 
else  if  codel<*127  then  do? 

put  skip  list('The  program  will  he  abandoned'); 
stop; 

end  /*if*/; 

end  /*fixedoverflow*/; 

on  overflow 
begin; 

put  list('~Z'); 

put  skip  list ( 'Overflow  #'); 

codel=oncode( ) ; 

call  promptuser (codel ) ; 

if  (key-'y')  !  (key«'Y')  then  goto  errorexit; 
else  if  codel<»127  then  do; 

put  skip  list('The  program  will  be  abandoned'); 
stop; 

end  /*if*/; 

end  /’•‘overflow*/; 

on  underflow 
begin; 

put  list('~Z'); 

put  skip  llst( 'Underflow  #'); 

codel*oncode( ) ; 

call  promptuser (codel ) ; 

if  (key»'y')  !  (key»'Y')  then  goto  errorexit; 
else  if  codel<»127  then  do; 

put  skip  list ('The  program  will  be  abandoned'); 
stop; 

end  /*if*/; 

end  /*underflow*/; 

on  xerodivide 
begin; 
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T  *  .  'if 


put  iist("*z'); 

put  skip  list(  'Zerodivide  #'); 

codel*oncode( )  J 

call  promptuser (codel ) » 

if  (key»'y')  !  (key='T')  then  goto  errorexit; 
else  if  codel<*127  then  doi 

put  skip  list ('The  program  will  he  abandoned'); 
stop; 

end  /*if*/; 

end  /*terodivide*/; 

errorexit : 

if  erroron  then  do? 

call  reentry ( ); 
end  /*if*/; 
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C.  PBOMPT.PL I 


/* 

Prog  Name  :  PROMPT. PLI 

Date  :  December  83 

Written  by  :  M.  Kadri  Ozyurt 

For  s  Thesis 

Advisor  :  Professor  Kodres 

Purpose  :  This  routine  prompts  the  user  in  case 

of  an  error  interception  by  ERRIAND.  It  puts  the  code  of 
the  error  and  which  breakpoint  has  been  past.  Then  the 
program  asks  if  the  user  wants  to  enter  the  dynamic 
debugging  environment. 

♦/ 


promptuser :proc (codel )  external; 

/* 

del 

*/ 

%include  'const. inp'; 
%include  'globals  .inp' 5 
%include  'locals. aid ' » 


erroron=true? 

put  list(codel,'  is  detected  when  the  module  '); 
put  skip  list('The  clock  stopped.'); 

put  skip  list ('The  breakpoint  #' ,breakpt , 'has  been  past.'); 
put  skip  list( 'Would  you  like  to  enter  interactive  debugging' 

'environment  (Y/N)?'); 

get  list(key); 
end  promptuser; 
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D.  REENTRY. PLI 


/* 

Prog  Name  :  REENTRY. PLI 

Date  :  December  82 

Written  by  :  M.  Kadri  Ozyurt 

Por  :  Thesis 

Advisor  :  Professor  Kodres 

Purpose  :  This  routine  is  the  'workhorse  of 

the  dynamic  debugging  environment.  It  calls  PUTYARS  if 

the  user  wants  to  see  the  external  variables .Then  it 

calls  CHANGEVA  if  the  user  wants  to  change  any  variable 

with  in  a  loop  until  no  changes  are  wanted.lt  then  transfers 

the  control  to  the  breakpoint  the  user  desires. 

V 


reentrysproc  external} 

/* 

del 

*/ 

^include  '  const. inp'J 
^include  'globals.inp'; 
^include  'locals. aid  ; 


put  skip  list ('You  have  entered  the  interactive  debugging  ' 

t 'environment . ') » 

put  skip  list('You  will  be  asked  questions  about  the  ', 

'control  of  program  flow'); 

reentryl : 

put  skip  list('Do  you  want  a  listing  of  all  variables  ', 

'(Y/N)?'); 

get  list(key); 

if  (key*'Y')  !  (key»'y')  then  call  putvarsO; 

put  skip  list ( 'Do  you  want  to  change  the  value  of  any  ', 

'variable(Y/N )? ' ) ; 

get  list  (key); 


do  while  ("((key  *  'N')  !  (keyin'))); 
if  (key  »  'Y')  !  (key»'y')  then  do? 
put  skip  list ('Enter  the  number  and  the  new  value  ', 

'  (-32768<=value<=+32,767)  of  the  veriable  you  want  to 
put  skip  list('  change  in  integers  seperated  by  a  ', 

'comma . ' ) ; 


on  error  begin; 

put  list  {'***  bad  entry,  try  again'); 
goto  reentry2; 
end  /*error*/; 


') 


on  f ixedoverflov  begin* 

put  list( '***  too  large,  try  again'); 
go  to  reentry2; 
end  /*f ixedoverflov*/? 
reentry2: 

put  skip  list ('>'); 
get  list  (codel .value) ; 
revert  error? 
revert  f ixedoverflov? 
if  codel>maxvars  then 

put  list ( 'invalid  variable  number')? 

else 

call  cbangeva (codel , value) ? 

/♦end  if*/ 

put  skip  list('Do  you  want,  a  listing  again  I/N)?')? 
get  list(key); 

if  (key3*'!' ) !  (key*'y ' )  then  call  putvarsO? 

put  skip  list ('Do  you  want  to  change  another  variable  ', 

'(Y/N )?')? 

end  /*do*/? 
else 

put  list ( '♦**  bad  entry,  try  again')? 

/♦end  if*/ 
get  list(key)? 
end/*do*/? 

put  skip  list( 'Which  breakpoint  do  you  want  to  transfer  the  ', 

'control  (0  thru  9,  fooloved  by  return)?')? 

get  list(key)? 

do  while  ( (rank (key) <48 )  !  ( rank(key )>57 ) ) ? 
put  llst( '***  bad  entry,  try  again')? 
put  skip  list('>')? 
get  list(key)? 
end/*do*/» 
codel*rank(key)-48? 
breakpt*codel? 

put  skip  list( 'Enter  the  breakpoint  you  want  to  stop  (0  ', 

'thru  9)  or  any  non-numeral  character  if  you  do  not  want  to  ', 

stop(fol.  RET')? 

get  list(key)? 

if  ( (rank(key )<48)  l  (rank(key )>57) )  then  do? 

•put  skip  llst('The  program  will  execute  beginning  from  ', 

'the  breakpoint '  .codel ) ? 

erroron*false? 
end  /*do*/? 

else 

do  ? 

code2*rank(key)-48? 
stops (code2 )*tru e? 

put  skip  list('The  program  will  execute  between  the  ', 

'breakpts ', codel, '  and  ',code2)? 
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end 

put  skip  list('Is  that  what  you  want(T/N  *?' ); 
get  list(key); 

if  (key*'N')  l  (key='n')  then  do» 

put  skip  listi'Do  you  want  another  run(Y/N)?  ) 
get  list  (key); 

if  (key*'!')  !  (key='y')  then  goto  reentry!; 
end  /*if*/; 


end  reentry; 


e.  pumas. pli 


/* 

Prog  Name  : 
Date  : 
Written  by  : 
For  : 
Advisor  : 
Purpose  : 
variables  out  with 
*/ 


pumas,  pli 

December  83 
M.  Kadri  Ozyurt 
Thesis 

Professor  Kodres 

This  routine  puts  selected  external 
PL/I  put  edit  statement. 


putvarssproc  external; 

%replace  max_ ships  by  2, 
true  by  'l'b, 
false  by  '0'b; 

/♦del*/ 

^include  'globals  .  inp '  * 


i=a; 

j«0; 

put  skip 


list('The  listing  of  all  common  variables  is  as 

'follows : ' ) » 

put  skip(2)  list( 'Fixed  binary  values:'); 

put  skip  edit('(l)seconds=', seconds, '(2)minutes=', minutes, 

'(3)hours*', hours, ' (4)wake_ptr*' ,wake_ptr » ' (5)1=' ,i ) (r (forma tl ) ) 
put  skip  edit(  '(6)t_of=',  t.  of ,  '(7)target=' ,  target, 

' (8) own*' .own, ' (9)known=' , known , ' (10 )J* ', j ) (r(f ormatl ) ) ; 
put  skip  edit('(ll)t*',t, '(12)t_prime*' ,t_prime, '(13)currentproc=' 

currentproc) (r( forma tl ) ) ; 
skip  edlt( '(14)fourthevc*',fourthevc) (a,f (5) ) ; 
skip(2)  list('Fixed  decimal  values:'); 
skip(2)  llst( 'Boolean  values:'); 

skip  edit ( ' (15 )engaged=', engaged , '(16)magnif ied=' .magnified . 
'(17)fired=',f ired,  (18)erroron=',erroron) 

(a,b(l) , col (20) ,a,b(l ) , col (41 ) ,a,b(l) , col (58 ) ,a,b(l ) ) 
skip(2)  list('?ixed  decimal  values:'); 
skip  edlt( '(19)vx_own=',vx_own, '(20)vy_own='fvy_own, 

(21 )vx_target»',vx_  target , ' (22) vy_ target® ' ,vy_  target ) (r (forma t2) ) 
put  skip  edit  ( '(23)vx..rel  =  ',vx_rel, ' (24) vy_rel='  ,vy_rel , 

(25)vx. round*' ,vx  round, '(26 )vy_round=', vy, round) (r(format2) ); 
put  skip  edit( '(27)vr*',vr,'(28)ilpha= '.alpha, 

'(29)ax*',ax, '(30)bx*',bx) (r( forma t2) ); 

put  skip  edlt( ; (31 )cx=' ,cx , ' (32 )ay*' ,ay , ' (33) by=' ,by , ' (34)cy=' , cy ) 

(r(format2) ) 


put 

put 

put 

put 


put 

put 

*  t 


put  skip  edit('(35)ax_sum*',ax_sum,'(36)bx_sum*',bx_sum, 
'(37jcxlsum=',cx'sum) ( r (forma t3) ); 
put  skip  edit( '(38)ay_sum*',ay_sum,  (39)by_sum*' ,by_sum, 
'(40)cy_sum*',cx~sum) (r(formit3) )» 
put  skip  edit( '(41)x_at5»',x  at5,'(42)y  at5»',y  at5, 

(43 )r* ', r) ( r( formats) ); 

put  skip  edit('(44)dx_dt  at5*',dx_dt_at5,'(45)dy_dt_at5*', 

dy  dt_at5,  (46)dr_dt_at5*',dr  dt  at5) (r(f ormat3 ) ) J 
put  skip(2)  list! 'Character  values!'); 
put  skip  edit('(47)key»',key)(a(8),a(l)); 
put  skip(2)list( 'Arrays: ') ; 

put  skip  edit ( '  (48 )  threshold (0  )* '  f threshold^ ) , ' (49 )  threshold (1 )*' , 

thresbold(l), '(50 threshold (2 )  =  ',threshold(2)) 

(a,f (5) ,col(26) ,a ,f (5) ,col(51) ,a,f (5) ) ; 
put  skip(2)  list('Data  structures:'); 
put  skip  list( 'ship(l) :') ; 

put  skip  edit( '(51)course*' , coursed ), '(52)speed*' ,speed(l 

'(53)asimuth-',aximuth(l ) » '(54)range*',range(l))  (r(fo.  .a  )); 
put  skip  edit  ( ' (55)x*',x(  1 ) , '  (56)y*' ,y(l) ,  '(57)x  aim*',x  ai  .-), 

' (58)y_aim»' ,y_aim(l ) ) (r (formats) ) ; 
put  skip  edit ( ' (59 )count»' ,count(l) , ' (60) number-' ,number(l) , 
'(61)ptr»',ptr(l) , '(62)link_ship*',link_ship( 1) ) 

.  .  ..  (r(format6) ) ; 

put  skip  list(  Ship(2):  ); 

put  skip  edit ( '(63)course*',course(2 ) ,  '(64) speed*' .speed (2) , 

'(65)axlmuth-',aximuth(2) ,'(66)range*',range(2)) (r(f ormat4) ); 
put  skip  edit('(67)x-',x(2),'(68)y«',y(2),'(69)x_aim«',x_aim<2), 
'(70)y_>aim-',y_aim(2) )  (r(format5) ) ; 
put  skip  edit( '(71 )count»' ,count(2) , '(72 )number*',number(2) , 
'(73)ptr«',ptr(2),'(74)link_sbip*',llnk_ship(2)) 

,,  ..  (r  (formate) ) ; 

put  skip  llst(  Gun:  ); 

put  skip  edit('(75)ax«',ax,'(76)alt*',alt,'(77)x_gun*',x_gun, 
'(78)y_gun*'fy  gun) (reformats) ); 
put  skip  list( '¥ake(ptr(2)) : ') ; 

put  skip  edit('(79)x  wake*',x_wake(ptr(2)),'(80)y  wake*', 
y_wake(ptr(27),'(81)llnk  wake*', link  wakeTptr (2) ) ) 

(a, f (7,1), col (20), a, f (7,1 ) ,col(39) ,aTf (1) ) ; 
put  skip  edit  ( '(82)dt*',dt) (a,f (4,2>) ; 
formatl: format (a,f (2) , col (16) ,a,f (2) ,col(31) ,a,f (2) , col (44) ,a,f (2) , col (59) , 

a,f (5) ) ; 

format2:format(a,f (4,1) , col (19) ,a,f(4,l) , col (37) ,a,f (4,1) ,col (58 ) ,a, 

f(4,l)); 

format3:format (a,f (4,1) ,col{24) ,a,f (4,1 ) ,col (47) ,a,f (4,1) ) ; 
format4:f ormat(a,f (4,1) ,col(19) ,a,f(4,l) ,col(35) ,a,f (4,1) , col (54)  ,a, 

,  f(7,i)); 

formatS:f ormat (a,f (7,1) , col (19) ,a,f (7,1 ) , col (35) ,a,f (7,1) , col (54)  ,a, 

f  (7,D); 

f orma t6:f ormat (a,f(l),col(19),a,f (2) ,col(35) ,a ,f (2), col (54) ,a,f(2))» 

end  putvars; 
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F.  CHANGEYA .PLI 


/* 

Prog  Name  :  CHANGEYA.PLI 

Date  :  December  83 

Written  by  o  :  M.  Eadri  Ozyurt 

For  :  Thesis 

Advisor  :  Professor  Kodres 

Purpose  :  This  routine  changes  a  selected 

external  variable  specified  by  the  parameter  passed 

V 


changeva :proc (codel , value )  external » 
del 

(codel , value)  fixed  bin(15); 

^include  'const. inp'i 

^include  'globals.inp'J 

if  codel=l  then  seconds*binary(value ,7 ) ; 
if  codel*2  then  minutes*binary( value ,7) ; 
if  codel=3  then  hours*binary ( value,? ) ; 
if  codel*4  then  vake_ptr=binary( value,?) ; 
if  codel»5  then  i»binary (value, 15); 
if  codel=6  then  t_of=binary(  value  ,7)  > 
if  codel=7  then  tlrget=binary(value,7) ; 
if  codel=8  then  ovn=binary (value,?) » 
if  codel=>9  then  known=binary (value, 7) ; 
if  codel*10  then  J=binary( value ,15) » 
if  codel*ll  then  t=binary (value ,7 )  ; 
if  codel*12  then  t,.prime=binary(value,7) ; 
if  codel»13  then  c\irrentproc=binary( value  ,7) » 
if  codel*14  then  fcurthevc=blnary (value, 15); 
if  codel=15  then  engaged=bit (value, 1 ) ; 
if  codel*16  then  magnif ied=bit(value,l ); 
if  codel=»17  then  fired=bit (value, 1} ; 
if  codel*18  then  erroron*bit (value, 1 ) » 
if  codel=19  then  vx_o*n»decimal(value,4,l ) » 
if  codel*20  then  vy3ovn*decimal(value,4,l ); 
if  codel»21  then  vx_target*decimal(value,4,l) ; 
if  codel*22  then  vy3target=decimal (value ,4, 1 ) ; 
if  codel*23  then  vx~rel*decimal (value, 4,1 ) ; 
if  codel*24  then  vy_rel*decimal(value,4,l ); 
if  codel«25  then  vx!round*decimal (value, 4,1 ) ; 
if  codel*26  then  vy_round*decimal(value,4,l); 
if  codel*27  then  vr*decimal(value,4,l ); 
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if  codel»28  then  alpha*decimal(value,4,l ) ; 
if  codel»29  then  ax*decimal(value,?,2)» 
if  codel*30  then  tx*decimal(value,?,2 )  * 
if  codel=31  then  cx*decimal( value ,7,2) » 
if  codel=32  then  ay“deciinal(  value  ,7,2); 
if  codel=33  then  hy*decimal (value ,7,2) » 
if  codel*34  then  cy=decimal(value,7,2) » 
if  codel*35  then  ax_suro*iecimal(value,?,2)> 
if  codel*36  then  hx"sum*deciraal(value,7,2 )» 
if  codel*37  then  cx~sum=decimal(value  ,7,2) ; 
if  codel*38  then  ay_sum=declmal(value,7,2 ) » 
if  codel=39  then  by~5um*deciP>al(value,7,2) ; 
if  codel=40  then  cy_suni“decirnal(value,?,2  )i 
if  codel=41  then  x.at5»decimal (value, 7,2 ) * 
if  codel*42  then  y^at5*decimal(value,7,2)» 
if  codel®43  then  r=decimal (value ,7,2 ) » 
if  codel*44  then  dx_dt_at5=decimal(value ,7,2) ; 
if  codel“45  then  dy~dt~at5=decimal(value,?,2) » 
if  codel=46  then  dr_dt_at5=decinal(value,7,2) i 
if  codel*47  then  key*ascii (value) ; 
if  codel*48  then  threshold (0) “value » 
if  codel=49  then  threshold (1 )=value* 
if  codel*50  then  threshold(2)=value » 
if  codel*51  then  course(l)=decimal(value,4,l); 
if  codel*52  then  speed(l)=decimal(value,3,l); 
if  codel*53  then  azlmuth(l)ssdecitnal(value,3,0) » 
if  codel»54  then  range(l)®decimal(value,5,0)J 
if  codel“55  then  x(l)=decimal(value,6,l) 5 
if  codel*56  then  y(l )=decimal (value, 6,1 ) ; 
if  codel=57  then  x_alm(l)=decimal(value,6,l )» 
if  codel=»58  then  y_aim(l )*decimal (value, 6,1 ) ; 
if  codel*59  then  count(l)=tinary(value,7)> 
if  codel*60  then  numher(l )=Mnary (value, 7) ; 
if  codel*61  then  ptr(l)*binary{ value ,7) ; 
if  codel«62  then  link_ ship' 1 ) “binary (value,?) ; 
if  codel“63  then  course(2)=decimal(value,4,l) » 
if  codel*64  then  speed(2)=decimal(value,3,l ); 
if  codela65  then  azimuth(2)-decimal(value,3,0); 
if  codel*66  then  range(2)=decimal(value,5,0) J 
if  codel*67  then  x(2)*decimal (value, 6,1) » 
if  codel*68  then  y(2)“decimal (value, 6,1); 
if  codel“69  then  x_airo(2)=decimal (value, 6,1 )  > 
if  codel*70  then  y_aiw(2)=decimal(value,6,l )» 
if  codel»71  then  count(2)*binary(value,7) ; 
if  codel»72  then  numher(2)*tinary(value,7) ; 
if  codel*73  then  ptr(2)*binary(value,?)» 
if  codel»74  then  link_ship(2)“binary(value,7) ; 
if  codel>75  then  az*decimal(value,4,l); 
if  codel»76  then  alt»decimal (value, 4,1 ) j 
if  codel*77  then  x_gun«declmal (value, 6,1 ); 
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if  codel*78  then  y_gun*decimal( value, 6,1); 
if  codel*79  then  x~vake(ptr(2 ) )«dc 'imal (value, 6, 1 ) 
if  codel*80  then  ylwake(ptr(2) )=decimal(value,6, 1) 
if  codel*61  then  link_wake(ptr(2 ) )*binary(value,7) 
if  codel®82  then  dt*float(value,7); 

end  changeva; 
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G.  BREAKS0 .AID 


/* 


Prog  Name 
Cate 

Written  by 
Por 


BREAKS0 . AID 
December  83 
M.  Kadri  Ozyurt 
Thesis 


Advisor  :  Professor  Kodres 

Purpose  :  This  Xlnclude  file  is  one  of  the  ten 

%include  files  ,BREAKS0  through  BREAKS9,  that  are  used 
to  insert  various  parts  of  the  programs  to  be  tested. 
They  are  protected  during  the  normal  operation  of  the 
program  under  test  vith  an  if  statement.  Within  the  if 
statement  thereis  a  call  to  BREAIPTS  . 

V  . 


BREAKS (0) : 

BREAIPT-0J 

IP  STOPS (BREAKPT)  THEN  DO; 
CALL  BREAKPTSJ 
GOTO  BREAKS (BREAKPT); 

end  /*ipv; 


H.  BREAEPTS.PLI 


/♦ 

Prog  Name  :  BREAKPTS.PLI 

Date  :  December  83 

Written  by  :  M.  Xadri  Ozyurt  , 

Por  :  Thesis 

Advisor  :  Professor  Kodres 

Purpose  :  This  routine  prompts  the  user  that  the 

breakpoint  intended  to  stop  has  been  reached.  Then  it  asks 
if  the  user  wants  to  transfer  the  control  over  the  dynamic 
debuggig  environment.  If  the  answer  is  positive  then  it 
calls  REENTRY  where  the  control  stays  thereafter. 

*/ 


breakptsrproc  external? 
del 

stops(0:9)  bit(l)  external, 
breakpt  fixed  bin(15)  external, 
key  char(l )  external, 
erroron  bit(l)  external, 
reentry  entry? 


stops (breakpt )»'0'b? 

put  skip  list ('♦**♦*  breakpoint ', breakpt , '  *****')? 

put  skip  list ('The  execution  halted  and  clock  stopped.')? 

put  skip  list ('Do  you  want  to  enter  the  Interactive  debugging' 

'environment (Y/N )? ' ) ? 


get  list(key)? 
if  (key-'Y')  1 


'Y')  !  (key-'y') 
call  reentryO? 


then 


else 


erroron*'0'b? 


/♦end  it*/ 


end  breakpt s? 


I.  TIMES  .AID 


/* 

Prog  Name 
Date 

Written  by 
Por 


TIMES. AID 
December  S3 
M.  Kadri  Ozyurt 
Thesis 


Advisor  :  Professor  Kodres 

Purpose  t  This  %include  file  is  inserted  to 

VAB.PLI  to  test  the  execution  times  of  the  individual 


system  routines. 
*7 


put  sklp(2)  list  ('Do  you  want  to  measure  the  execution', 

, 'times  of  the  modules  (Y/N)?')J 
get  list  (key); 

do  while  ((key-'Y')  !  (key*'y'))J 

put  sklp(2)  list( 'Enter  the  number  of  Iterations  you  want 

'(max  32,767).'); 

on  error  begin? 

put  list('***  bad  entry,  try  again.'); 
goto  timesl? 
end  /*error*/? 
on  flxedoverflow  begin; 

put  llst('***  too  large,  try  again.'); 
goto  timesl? 
end  /*f ixedoverflow*/? 
timesl: 

put  skip(2)  llst('>')? 
get  llst(h); 
revert  error? 
revert  fixedoverflow? 

put  skip(2)  list('Get  ready  for  time  check.  The  modules', 

'  will  execute  ',h,'  times.') 

do  1*1  to  4? 

put  skip(2)  list( 'Headyll  Press  any  key  to  start' 

,'tbe  time  check  of  the  module')? 
if  i-1  then  put  list  ('  IDLE.'); 
else  if  i*2  then  put  list('  STATUS.'); 
else  if  1*3  then  put  list('  TACTICAL.'); 
else  put  list('  DISPLAY.')? 
get  llst(key); 

do  j*l  to  h  while  (i*l);  call  idle?  end; 

do  J*1  to  h  while  (i*2) ?  call  status?  end; 

do  j*l  to  h  while  (1*3);  call  tactical;  end? 

do  1*1  to  h  while  (1*4);  call  display?  end; 


put  skip(2)list( 'The  end  of  the  execution 
put  skip(2 )li s t ( 'Enter  the  time  measured  in  ", 

'seconds.') 

on  error  begin; 

put  list('***  bad  entry,  trji  again'); 
go  to  times2; 
end  /*error*/5 
on  f lxedoverflow  begin; 

put  list(  '***  bad  entry, try  again.'); 
goto  tlmes2; 
end  /*f lxedoverflow*/; 

times2: 

put  skip(2)  list <">'); 
get  list ( J ) ; 
revert  error; 
revert  fixedoverf low; 
begin; 

del  duration  float; 
duration«float(J  )/float(h)? 

put  skip(2)  list('The  execution  time  of  the  ', 
module  is' .duration , '  iterations/sec'); 

end; 

end  /*do*/J 

put  sklp(2)  1 1 s t ( ' Do  you  want  another  run  (T/N)?  ); 
get  list(key); 
end  /*do*/J 
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APPENDIX  G 


A  SAMPLE  SUBROUTINE  TESTING 


/* 

Prog  Name  :  P.PLI 

Date  :  December  83 

Written  by  s  M.  Kadri  Ozyurt 

For  s  Thesis 

Advisor  :  Professor  Kodres 

Purpose  :  This  program  is  written  to  test 

individual  procedures  in  an  interactive  manner.  At  each 
iteration  new  values  are  asked.  The  PL/I  ON  condition 
bodies  are  used  to  intercept  any  inadvertantly  wrong 
entries.  The  endless  loop  can  be  terminated  either  C  or 
~Z  from  the  terminal.  In  this  particular  example  the 
procedure  DRAW  inside  the  body  of  DISPLAY. PLI  is  tested  by 
making  it  external  for  the  test  purposes. 

*/ 


p:proc  options(main) » 
del 

(u,v)(0:10)  fixed  bin(15), 

( 1 ,x,y)f lxed  bln(15), 
rub  char(l )  external, 
d  fixed  bin (7), 

draw  entry  ((0:10)fixed  bin(15) ,(0:10)fixed  bin(15) 

, fixed  bin (7 ) ); 


on  error  begin; 

put  skip  list('***  bad  value,  try  again'); 
goto  reentry; 

end; 

on  f lxedoverf low  begin; 

put  skip  list{'***  too  large,  try  again'); 
goto  reentry; 

end; 


reentry: 
rub«ascii(l27) ; 
do  while(  1  'b )  i 

put  list  ( r  “x'); 

put  skip  llstl 'enter  x  and  y'); 

put  skip  list ('>'); 

get  list(x,y)» 

FUt  list ( — Z ' ) 5 
call  gen(x,y,u,v); 
d-i; 

call  drav(u,v,d); 
call  delay; 
d*0; 

call  draw(u, v,d) ; 

end; 

delaytproc; 

del  (i ,  J)  fixed  bin(15); 

do  1*1  to  30000; 

do  J-l  to  2; 
end; 

end; 

end; 

gen:proc(x,y ,u,t) ; 
del 

(u,t)(0:10)  fixed  bln(15), 
(x,y)  fixed  bln(15); 


u(0)*x+8; 

T(0)»y; 

u(i)*x; 

▼  (D-y+8; 

u(2)*x-8; 

▼(2)*y ; 

u(3)*x; 

▼(3)-y-8; 

u(4)»x+8; 

▼(4)-y; 

u(5)»-i; 

t(5)*-i; 

end; 

end  p; 

APPENDIX  H 


A  SAMPLE  PROGRAM  TESTING 


/* 

Prog  Name  :  IDLE.PLI 

Date  :  December  83 

Written  by  :  M.  Kadri  Ozyurt 

For  :  Thesis 

Advisor  :  Professor  Kodres 

Purpose  s  This  is  the  testing  version  of  the 

procedure  IDLE.PLI  under  the  dynamic  debugging  module. 

After  the  correct  result  from  the  test  had  been  taken, 

the  final  version  of  the  procedure  was  made  simply  removing 

the  segment  of  code  in  between  the  comment  lines.  In  order 

to  test  the  program,  an  Interactive  main  procedure  as  in 

Appendix  G  was  written. 

*/ 


IDLE: PROCEDURE  EXTERNAL; 


/* 

DCL 

*/ 

XINCLUDE  'CONST. INP'; 
XINCLUDE  'GLOBALS.INP'J 


/*******  DEBUG  AID  *******/ 
XINCLUDE  'LOCALS. AID'; 
XINCLUDE  'SRRHAND.AID'; 
XINCLUDE  'BREAXS0 .AID' ; 
/********  SND  AID  ********/ 

DO  D*0  TO  5; 

CALL  ATOD  (D,ARG (D ) ) ; 
END  /♦DO*/* 


/♦at  this  point  the  A/D  output  values  are  fixed  Mn(7) 
values.  The  following  sequence  converts  those  to  fixed 
decimal  values*/ 

/******  debug  AID  *♦*♦**/ 

^INCLUDE  'BREAKSl.AID'i 
/*******  end  AID  ********/ 

COURSE ( OWN ) =ARG (0 ) i 
SPEED ( OWN ) *ARG ( 4 ) 5 
COURSE (KNOWN )=ARG (2 )  J 
SPEED(KN0WN)=ARG(3)J 
AZaARG(l); 

ALT*ARG(5)J 

/******  DEBUG  AID  ***♦♦*/ 

^INCLUDE  'BREAKS2.AID ' » 

/*«*#***  end  AID  ********/ 

/♦the  following  sequence  converts  A/D  values  to  real  time 
values  by  using  appropriate  proportionality  constants*/ 
COURSE(OVN)  *  COURSE(OVN)  *  K; 

COURSE (KNOWN )  =  COURSE (KNOWN )  ♦  KJ 

AZ  -  AZ  *  KJ 

IP  COURSE (OWN) <0.0  THEN 

COURSE (OWN  )  »  COURSE (OWN)  +  TWO  PI  { 

IP  COURSKKNOWN  )<0.0  THEN 

COURSE( KNOWN)  *  COURSE(KNOWN )  +  TWO  FI  } 

IP  AZ<0 .0  THEN 

AZ  »  AZ  ♦  TWO  pi; 

IP  ALT>90.0  THEN 
ALT  »  90.0; 

/******  DEBUG  AID  ******/ 

^INCLUDE  'BREAK S3. AID  '? 

/*******  END  AID  #******♦/ 

SPEED (OWN )  =  speed(own)/l; 

SPEED (KNOWN)  =  SPEED (KNOWN)  /  Li 

/♦ownship  speed  computations*/ 

11  OWN  =  SPEED(OWN)  *  SIND (COURSE  (OWN ) ) » 

YT^OWN  =  SPEED (OWN)  *  COSD( COURSE (OWN )) ; 

/******  DEBUG  AID  ♦♦****/ 

%INCLUDE  'BREAKS4. AID' J 
/♦*****♦  END  AID  ********/ 


/♦when  not  have  fired,  the  following  makes  the  tallisti 
computations*/ 

IF  “  FIRED  THEN 

begin; 

T_OF  »  2.0  *  VM  *  SIND(ALT)  /  GJ 

/*** ***  DEBUG  AID  ******/ 

XINCLUDE  'BREAKS5.AID '» 

/*******  xxp  ********/ 

VR  =  VM  *  COSD(ALT); 

r  =  vr  *  t„of; 

/******  DEBUG  AID  *******/ 

% INCLUDE  'BREAKS6.AID'; 

/*******  END  AID  ********/ 

X  AIM(OVN)  *  R  *  SIND(AZ); 

T'AIM(OWN)  *  R  *  cosd(az); 

X^GUN  =0.0; 

Y_GUN  »  0.0? 

/******  DEBUG  AID  ******/ 

%INCLUDE  'BREAKS?. AID ' » 

/*******  END  AID  ********/ 

VX  ROUND  *  VR  *  SIND(AZ); 

VY” ROUND  *  VR  *  COSD(AZ); 

/***»«*  debug  AID  ******/ 

XINCLUDE  'BREAK S8. AID ' J 
/*******  END  AID  ********/ 

T  =  t_of; 

END  /*IF*/; 

/******  DEBUG  AID  ******/ 

XINCLUDE  'BREAKS9.AID'; 

/*******  END  AID  ********/ 
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